VBA代码 选中单元格为当日日期

Sub SelectToday()
Range("A1").Select '选择起始单元格，可以根据实际情况修改
Do Until ActiveCell.Value = "" '循环直到遇到空单元格
If ActiveCell.Value = Date Then '判断单元格的值是否为今天的日期
ActiveCell.Select '选择单元格
Exit Sub '结束循环
End If
ActiveCell.Offset(1, 0).Select '选择下一个单元格
Loop
End Sub