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

这里有一张包含日期列表的工作表，您希望快速跳转到带有当前日期的单元格，该如何解决这个问题呢？

使用 VBA 跳转到当前日期

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

使用 VBA 跳转到当前日期

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

1. 打开要使用的 workbook，并按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，将以下代码粘贴到模块中。

VBA：跳转到当前日期

Private Sub Workbook_Open()
'UpdatebyExtendoffice
    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 键，然后光标会跳转到工作簿中任何位置的当前日期所在单元格。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

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

如果您不熟悉 VBA 代码，也可以使用 查找和替换 工具来跳转到当前日期。

1. 打开包含日期列表的工作表，并选择一个空白单元格，输入以下公式 =TODAY()，按下 Enter 键，现在您得到了今天的日期。

2. 按下 Ctrl + C 复制今天的日期，然后选择日期列表，接着按下 Ctrl + F 以启用 查找和替换 对话框，在 查找内容 文本框中，按下 Ctrl + V 粘贴今天的日期。参见截图：

3. 单击 查找全部。现在光标会跳转到所选列表中今天日期所在的单元格。

提示： 如果您有 Kutools for Excel，您可以使用它的 选择指定单元格 功能快速处理此任务。它在 30 天内完全无限制地试用， 请立即下载并免费试用。