固定表头
打开excel工作簿后自动跳转到当前日期所在列
当前日期:21年5月2日
右键工作表名查看代码
双击打开ThisWorkbook中输入如下,主要实现一打开excel就自动定位当前日期
Private Sub Workbook_Open()
Dim C As Integer, W As WorksheetFunction, D As Long
Set W = WorksheetFunction
D = Date
C = W.Match(D, Sheet1.Range("2:2"), 0)
'Sheet1改成自己的工作表名
'Range(表中日期所处的行数),我的放在第二行就是2:2
Sheet1.Cells(2, C).Select
'数字同