如何在Excel中快速跳转到具有当前日期的单元格？

这是带有日期列表的工作表，您想快速跳转到当前日期所在的单元格，如何解决此问题？

使用VBA跳转到当前日期

使用查找和替换跳转到当前日期

使用VBA跳转到当前日期

这是一个VBA代码，可以帮助您快速跳转到当前日期所在的单元格。

1.启用要使用的工作簿，然后按 Alt + F11键 键打开 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块，将以下代码粘贴到 模块.

VBA：跳转到当前日期

Private Sub Workbook_Open()
'UpdatebyExtendoffice20161221
    Dim daterng As Range
    Dim DateCell As Range
    Dim WorkSht As Worksheet
    Dim dateStr As String
    Application.ScreenUpdating = False
    For Each WorkSht In Worksheets
        WorkSht.Select
        'Set daterng = Range("A:A")
        Set daterng = WorkSht.UsedRange
        'daterng.Select
        For Each DateCell In daterng
            DateCell.Activate
            ActiveCell.Select
            On Error Resume Next
            dateStr = DateCell.Value
            If dateStr = Date Then
                DateCell.Select
                Exit Sub
            End If
        Next
    Next WorkSht
    Application.ScreenUpdating = True
    'Worksheets(1).Select
End Sub

3。 按 F5 键，然后光标将跳到带有当前日期的单元格，无论您在工作簿中的什么位置。

使用查找和替换跳转到当前日期

如果您不熟悉VBA代码，也可以应用 查找和替换 实用程序跳转到当前日期。

1.启用包含日期列表的工作表，然后选择一个空白单元格，键入以下公式 = TODAY（）， 按 输入 键，现在您可以获得今天的日期。

2。 按 按Ctrl + C 复制今天的日期，然后选择日期列表，然后按 Ctrl + F 使之成为可能 查找和替换 对话框中 查找内容 文本框，按 按Ctrl + V 将今天的日期粘贴到看截图：

3。 点击 找到所有。 现在，光标跳到所选列表中今天所在的单元格。

提示： 如果你有 Kutools for Excel，您可以应用它 选择特定的单元格 快速处理这个任务。30天内功能齐全，无限制， 请下载并立即免费试用。