¿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 SubNota: 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.
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos