如何快速跳轉到 Excel 中具有當前日期的單元格？

這裡有一張包含日期列表的工作表，您希望快速跳轉到具有當前日期的單元格，該如何解決這個問題呢？

使用 VBA 跳轉到當前日期

使用「尋找和替換」跳轉到當前日期

使用 VBA 跳轉到當前日期

以下是一段 VBA 程式碼，可以幫助您快速跳轉到具有當前日期的單元格。

1. 啟用您要使用的活頁簿，然後按下 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 天內完全功能且無限制，請立即下載並免費試用。