打开宏编辑器，在工程管理器中双击你那个文件的 ThisWorkbook，然后将下面的代码贴在右边的代码区，就可以了。（保存并关闭文件，重新打开就可以看到效果了 ^-^）注：我这里是假设日期都在第2行，如果在别的地方，请修改这句：ActiveSheet.Rows(2).Select Private Sub Workbook_Open()
Dim myCell As Range
Sheets("Sheet1").Select
'进入目标工作表，注意改表名为你实际的
ActiveSheet.Rows(2).Select'假如日期在第2行，就选中第2行
Set myCell = Selection...
