Saltar al contenido principal

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

Mientras usa una hoja de cálculo de Excel con una gran cantidad de datos, ¿sabe cómo navegar o encontrar ciertas celdas que contienen contenido específico rápidamente? Con el método de este artículo, puede hacer clic en una celda con una letra del alfabeto para navegar hasta la celda cuyo contenido comienza con esa letra del alfabeto automáticamente.

Haga clic en la letra del alfabeto para ir a la celda que comienza con esa letra con el código VBA


Haga clic en la letra del alfabeto para ir a la celda que comienza con esa letra con el código VBA

Haga lo siguiente para ir a una celda haciendo clic en una celda del alfabeto en Excel.

1. En la hoja de trabajo, debe ir a una celda haciendo clic en una celda del alfabeto, hacer clic con el botón derecho en la pestaña de la hoja y luego hacer clic en Ver código desde el menú contextual. Ver captura de pantalla:

2. Entonces un Microsoft Visual Basic para aplicaciones aparece una ventana emergente, copie y pegue el código VBA debajo en la ventana Código.

Código VBA: haga clic en la 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

Note: En el código, 1: 1 significa que las letras del alfabeto se ubican en la primera fila de la hoja de trabajo.

3. presione el otro + Q teclas simultáneamente para cerrar el Microsoft Visual Basic para aplicaciones ventana.

A partir de ahora, al hacer clic en una celda del alfabeto, todas las celdas que comienzan con esa letra se seleccionan a la vez en la hoja de trabajo automáticamente.

Si ninguna celda comienza con la letra seleccionada, obtendrá un cuadro de diálogo Kutools for Excel como se muestra a continuación.

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
That's a really good implementation of "find the word that starts with the letter . . ."
I don't want the cells selected though as that can lead to data changes or worse, deletions.
I know that because I just did it. ;-(
I will figure out how to jump to the first cell and not select all (or any) of them.
Meantime, I thank you for your assistance. I appreciate this.
pip
This comment was minimized by the moderator on the site
Hi,
Sorry for the inconvenience, the following VBA code can help to jump to the first cell in current sheet when clicking on a cell that contains a specific letter.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 20220520
    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
                    Exit For
                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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations