¿Cómo hacer clic en una letra del alfabeto para ir a la celda que comienza con esa letra en Excel?

Al usar una hoja de cálculo de Excel con una gran cantidad de datos, ¿sabes cómo navegar o encontrar rápidamente las celdas que contienen un contenido específico? Con el método de este artículo, puedes hacer clic en una celda con una letra del alfabeto para navegar automáticamente a la celda cuyo contenido comience con esa letra.

Haz clic en una letra del alfabeto para ir a la celda que comienza con esa letra usando código VBA

Haz clic en una letra del alfabeto para ir a la celda que comienza con esa letra usando código VBA

Por favor, sigue los pasos a continuación para ir a una celda haciendo clic en una celda alfabética en Excel.

1. En la hoja de cálculo, donde necesitas ir a una celda haciendo clic en una celda alfabética, haz clic derecho en la pestaña de la hoja y luego haz clic en Ver código en el menú contextual. Ver captura de pantalla:

2. Luego se abrirá una ventana de Microsoft Visual Basic para Aplicaciones; por favor, copia y pega el siguiente código VBA en la ventana de Código.

Código VBA: Haz clic en una letra del alfabeto para ir a la celda que comienza con esa letra

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: En el código, 1:1 significa que las letras del alfabeto están ubicadas en la primera fila de la hoja de cálculo.

3. Presiona simultáneamente las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.

A partir de ahora, al hacer clic en una celda alfabética, todas las celdas que comienzan con esa letra se seleccionarán automáticamente en la hoja de cálculo.

Si ninguna celda comienza con la letra seleccionada, obtendrás un cuadro de diálogo de Kutools para Excel como se muestra en la siguiente captura de pantalla.