Come fare clic su una lettera dell'alfabeto per andare alla cella che inizia con quella lettera in Excel?

Mentre si utilizza un foglio di lavoro Excel con una grande quantità di dati, sapete come navigare o trovare rapidamente le celle che contengono un determinato contenuto? Con il metodo descritto in questo articolo, potete fare clic su una cella con una lettera dell'alfabeto per passare automaticamente alla cella il cui contenuto inizia con quella lettera.

Fare clic su una lettera dell'alfabeto per andare alla cella che inizia con quella lettera utilizzando il codice VBA

Fare clic su una lettera dell'alfabeto per andare alla cella che inizia con quella lettera utilizzando il codice VBA

Eseguite i seguenti passaggi per andare a una cella facendo clic su una cella alfabetica in Excel.

1. Nel foglio di lavoro, dove è necessario andare a una cella facendo clic su una cella alfabetica, fate clic con il tasto destro del mouse sulla scheda del foglio e poi cliccate su Visualizza Codice dal menu contestuale. Vedere screenshot:

2. Si aprirà una finestra di Microsoft Visual Basic for Applications; copiate e incollate il seguente codice VBA nella finestra del Codice.

Codice VBA: Fare clic su una lettera dell'alfabeto per andare alla cella che inizia con quella lettera

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

Nota: Nel codice, 1:1 significa che le lettere dell'alfabeto si trovano sulla prima riga del foglio di lavoro.

3. Premete contemporaneamente i tasti Alt + Q per chiudere la finestra di Microsoft Visual Basic for Applications.

Da ora in poi, quando si fa clic su una cella alfabetica, tutte le celle che iniziano con quella lettera verranno selezionate automaticamente nel foglio di lavoro.

Se nessuna cella inizia con la lettera selezionata, riceverete una finestra di dialogo di Kutools per Excel come mostrato nello screenshot sottostante.