如何點擊英文字母，快速跳轉到 Excel 中以該字母開頭的儲存格？

作者Siluvia修改日期2024-08-12

當您在處理包含大量資料的 Excel 工作表時，是否知道如何快速導航，或迅速找到包含特定內容的儲存格？透過本文介紹的方法，只需點擊一個英文字母儲存格，即可自動跳轉至內容以該字母開頭的儲存格。

使用 VBA 程式碼點擊英文字母，跳轉至以該字母開頭的儲存格

使用 VBA 程式碼點擊英文字母，跳轉至以該字母開頭的儲存格

請依照下列步驟，在 Excel 中透過點擊含有英文字母的儲存格，快速跳轉至目標儲存格。

1. 若要在工作表中透過點擊英文字母儲存格跳轉至目標儲存格，請先對工作表標籤按一下滑鼠右鍵，然後點選檢視程式碼（位於右鍵功能表中）。如下圖所示：

開啟活頁簿中 VBA 編輯器的螢幕截圖

2. 此時會彈出 Microsoft Visual Basic for Applications 視窗，請將下方的 VBA 程式碼複製並貼上至該程式碼視窗中。

VBA 程式碼：點擊英文字母，跳轉至以該字母開頭的儲存格

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xRg As Range
    Dim xCell As Range
    Dim xRgRtn As Range
    On Error Resume Next
    Application.EnableEvents = False
    If Not Intersect(Target, Range("1:1")) Is Nothing Then
        Set xRg = ActiveSheet.UsedRange
        Set xRg = xRg(1).Offset(1, 0).Resize(xRg.Rows.Count, xRg.Columns.Count)
        For Each xCell In xRg
            If Left(xCell.Value, 1) = Target.Value Then
                If xRgRtn Is Nothing Then
                    Set xRgRtn = xCell
                Else
                    Set xRgRtn = Application.Union(xRgRtn, xCell)
                End If
            End If
        Next
        If xRgRtn.Address = Target.Address Then
            MsgBox "No matched cell found", , "KuTools For Excel"
        Else
            xRgRtn.Select
        End If
    End If
    Application.EnableEvents = True
End Sub

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

備註：在程式碼中，1:1 表示英文字母位於工作表的第一列。

3. 同時按下 Alt＋Q 鍵，即可關閉 Microsoft Visual Basic for Applications 視窗。

從現在起，只要點擊任一英文字母的儲存格，工作表中所有以該字母開頭的儲存格將自動被同時選取。

執行 VBA 程式碼後顯示字母儲存格的螢幕截圖

若沒有任何儲存格以所選字母開頭，您將看到如下圖所示的 Kutools for Excel 對話方塊。

按一下特定字母儲存格時，顯示未找到相符儲存格之對話方塊的螢幕截圖

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多