Hur klickar man på alfabetets bokstav för att gå till cellen som börjar med den bokstaven i Excel?

När du använder ett Excel-kalkylblad med stor mängd data, vet du hur man snabbt navigerar till eller hittar vissa celler som innehåller specificerat innehåll? Med metoden i den här artikeln kan du klicka på en alfabetbokstavscell för att navigera till cellen vilket innehåll som börjar med den alfabetbokstaven automatiskt.

Klicka på alfabetet för att gå till cellen som börjar med den bokstaven med VBA-kod

Klicka på alfabetet för att gå till cellen som börjar med den bokstaven med VBA-kod

Gör så här för att gå till en cell genom att klicka på en alfabetcell i Excel.

1. I kalkylbladet måste du gå till en cell genom att klicka på en alfabetcell, högerklicka på arkfliken och klicka sedan på Visa kod från högerklickmenyn. Se skärmdump:

2. Sedan a Microsoft Visual Basic för applikationer fönstret dyker upp, vänligen kopiera och klistra in nedanför VBA-koden i kodfönstret.

VBA-kod: Klicka på alfabetet för att gå till cellen som börjar med den bokstaven

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

Anmärkningar: I koden betyder 1: 1 att alfabetets bokstäver finns på den första raden i kalkylbladet.

3. tryck på andra + Q samtidigt för att stänga Microsoft Visual Basic för applikationer fönster.

Från och med nu, när du klickar på en alfabetcell, väljs alla celler som börjar med den bokstaven på en gång i kalkylbladet automatiskt.

Om ingen cell börjar med den valda bokstaven får du en Kutools för Excel-dialogruta som visas nedan.