¿Cómo encontrar la última fila o columna con datos en Excel?
En una hoja de cálculo grande, si deseas determinar rápidamente y de manera sencilla la última fila o columna que contiene valores, simplemente puedes desplazar la barra de desplazamiento para encontrarla. Sin embargo, esto puede ser complicado si hay miles de filas de datos en tu hoja de cálculo. En este artículo, te hablaré sobre algunos códigos VBA útiles para ayudarte a resolver esta tarea.
Encuentra la última fila o columna con datos utilizando código VBA
Encuentra y selecciona la última fila o columna con datos con Kutools para Excel
Encuentra la última fila o columna con datos utilizando código VBA
La mayoría de nosotros podríamos considerar localizar la última celda presionando las teclas Ctrl +End para encontrar la última fila y columna, pero el atajo no ubicará la celda de valor precisa si hay algunas celdas con formato por debajo del rango de datos. Por lo tanto, aquí, utiliza el siguiente código VBA:
1. Activa tu hoja de cálculo en la que deseas determinar la última fila o columna con datos.
2. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
3. Luego haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana de Módulo.
Código VBA: Encuentra la última fila con datos
Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub
4. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo indicándote el número de fila del rango utilizado. Ver captura de pantalla:
5. Continúa haciendo clic en el botón Aceptar; esta vez se mostrará el número de la última fila con valores como se muestra en la siguiente captura de pantalla:
Nota: Para encontrar la última columna con datos, aplica este código:
Código VBA: Encuentra la última columna con datos
Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub
Encuentra y selecciona la última fila o columna con datos con Kutools para Excel
Si deseas encontrar y seleccionar directamente la última fila o columna con datos en Excel, las utilidades Seleccionar Última Fila y Seleccionar Última Columna de Kutools para Excel pueden ayudarte. Por favor, sigue los siguientes pasos.
1. Si deseas encontrar y seleccionar la última fila con datos, haz clic en Kutools > Seleccionar > Seleccionar Última Celda > Última Fila. Ver captura de pantalla:
Nota: Para encontrar y seleccionar la última columna con datos, haz clic en Kutools > Seleccionar > Seleccionar Última Celda > Última Columna.
Luego, la última fila o columna con datos en la hoja de trabajo actual se encontrará y seleccionará de inmediato.
Si desea tener una prueba gratuita (30-día) de esta utilidad, haga clic para descargarla y luego vaya a aplicar la operación siguiendo los pasos anteriores.
Demostración: Encuentra y selecciona la última fila o columna con datos con Kutools para Excel
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