Excelで特定のアルファベット文字をクリックして、その文字で始まるセルに移動するにはどうすればよいですか？

大量のデータを持つExcelワークシートを使用しているとき、指定された内容を含む特定のセルに迅速に移動したり見つけたりする方法はご存知ですか？この記事で紹介する方法を使えば、アルファベット文字が入ったセルをクリックすることで、そのアルファベット文字で始まる内容を持つセルに自動的に移動できます。

VBAコードを使用してアルファベット文字をクリックし、その文字で始まるセルに移動する

VBAコードを使用してアルファベット文字をクリックし、その文字で始まるセルに移動する

以下の手順に従って、Excelでアルファベットのセルをクリックして目的のセルに移動します。

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」ダイアログボックスが表示されます。