404nfnd

打开excel工作簿后自动跳转到当前日期所在列当前日期：21年5月2日ThisWorkbook中输入，主要实现一打开excel就自动定位当前日期Private Sub Workbook_Open()Dim C As Integer, W As WorksheetFunction, D As LongSet W = WorksheetFunctionD = DateC = W.Match(D, Sheet1.Range("2:2"), 0)'Sheet1改成自己的工作表名'Ran