如何在 Excel 中点击字母以跳转到以该字母开头的单元格？

在使用包含大量数据的 Excel 工作表时，您是否知道如何快速导航或找到包含特定内容的单元格？通过本文介绍的方法，您可以点击一个字母单元格，自动跳转到内容以该字母开头的单元格。

使用 VBA 代码点击字母跳转到以该字母开头的单元格

使用 VBA 代码点击字母跳转到以该字母开头的单元格

请按照以下步骤操作，通过点击字母单元格来跳转到目标单元格。

1. 在工作表中，您需要通过点击字母单元格跳转到目标单元格，右键单击工作表标签，然后从右键菜单中选择“ 查看代码”。见截图：

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

备注：在代码中，1:1 表示字母位于工作表的第一行。

3. 同时按下 Alt + Q 键关闭 Microsoft Visual Basic for Applications 窗口。

从现在开始，当您点击字母单元格时，所有以该字母开头的单元格都会在工作表中自动被选中。

如果没有以所选字母开头的单元格，您将看到如下截图所示的 Kutools for Excel 对话框。