¿Cómo encontrar la última fila o columna con datos en Excel?
En una hoja de trabajo grande, si desea determinar la última fila o columna que contiene valores de forma rápida y sencilla, puede arrastrar la barra de desplazamiento para encontrarla. Pero será doloroso si hay miles de filas de datos en su hoja de trabajo. En este artículo, hablaré sobre algunos códigos VBA útiles para que resuelvas esta tarea.
Encuentre la última fila o columna con datos usando el código VBA
Encuentre y seleccione la última fila o columna con datos con Kutools para Excel
Encuentre la última fila o columna con datos usando el código VBA
La mayoría de nosotros puede considerar ubicar la última celda presionando Ctrl + Fin para encontrar la última fila y columna, pero la tecla de método abreviado no ubicará la celda de valor precisa si hay algunas celdas que tienen formato por debajo del rango de datos. Entonces, aquí, use el siguiente código VBA:
1. Active su hoja de trabajo en la que desea determinar la última fila o columna con datos.
2. Mantenga pulsado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para aplicaciones.
3. Luego haga clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código de 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. Y luego presione F5 para ejecutar este código, y aparecerá un cuadro emergente para indicarle el número de fila del rango utilizado. Ver captura de pantalla:
5. Sigue haciendo clic OK , esta vez el último número de fila con valores se ha mostrado como se muestra en la siguiente captura de pantalla:
Nota: Para encontrar la última columna con datos, aplique este código:
Código de VBA: busque 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
Encuentre y seleccione la última fila o columna con datos con Kutools para Excel
Si desea buscar y seleccionar directamente la última fila o columna con datos en Excel, el Seleccionar última fila y Seleccionar última columna utilidades de Kutools de Excel puedo ayudarte. Haz lo siguiente.
Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.
1. Si desea buscar y seleccionar la última fila con datos, haga clic en Kutools > Seleccione > Seleccionar última celda > Última fila. Ver captura de pantalla:
Note: Para buscar y seleccionar la última columna con datos, haga clic en Kutools > Seleccione > Seleccionar última celda > Última columna.
Luego, la última fila o columna con datos en la hoja de trabajo actual se encuentra y se selecciona inmediatamente.
Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.
Encuentre y seleccione la última fila o columna con datos con Kutools para Excel
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!
