¿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
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...
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!