Este tutorial le mostrará cómo usar la propiedad Range.End en VBA.
La mayoría de las cosas que hace manualmente en un libro de trabajo de Excel o una hoja de trabajo se pueden automatizar en código VBA.
Si tiene un rango de celdas que no están en blanco en Excel y presiona Ctrl + Flecha abajo, el cursor se moverá a la última celda que no esté en blanco en la columna en la que se encuentra. De manera similar, si presiona Ctl + Flecha arriba, su cursor se moverá a la primera celda que no esté en blanco. Lo mismo se aplica a una fila que utiliza el Ctrl + Flecha derecha o Ctrl + Flecha izquierda para ir al principio o al final de esa fila. Todas estas combinaciones de teclas se pueden usar dentro de su código VBA usando el Función final.
Sintaxis de propiedad de fin de rango
La propiedad Range.End le permite moverse a una celda específica dentro de la región actual con la que está trabajando.
expresión.Fin (Dirección)
la expresión es la dirección de celda (rango) de la celda desde la que desea comenzar, por ejemplo: rango ("A1")
END es la propiedad del objeto Range que se está controlando.
La dirección es la constante de Excel que puede utilizar. Hay 4 opciones disponibles: xlDown, xlToLeft, xlToRight y xlUp.
Moviéndose a la última celda
El siguiente procedimiento lo llevará a la última celda de la Región actual de celdas en la que se encuentra.
| 1234 | Sub GoToLast ()'mover a la última celda ocupada en la región actual de celdasRango ("A1"). Fin (xlDown) .SeleccionarEnd Sub |
Contar filas
El siguiente procedimiento le permite utilizar el xlDown constante con la propiedad Range End para contar cuántas filas hay en su región actual.
| 12345678 | Sub GoToLastRowofRange ()Dim rw como enteroRango ("A1"). Seleccionar'obtener la última fila de la región actualrw = Rango ("A1"). Fin (xlDown) .Row'muestra cuántas filas se utilizanMsgBox "La última fila utilizada en este rango es" & rwEnd Sub |
Mientras que el de abajo contará las columnas en el rango usando el xlToRight constante.
| 12345678 | Sub GoToLastCellofRange ()Dim col como enteroRango ("A1"). Seleccionar'obtener la última columna de la región actualcol = Rango ("A1"). Fin (xlToRight) .Column'muestra cuántas columnas se utilizanMsgBox "La última columna utilizada en este rango es" & colEnd Sub |
Crear una matriz de rango
El siguiente procedimiento nos permite comenzar en la primera celda en un rango de celdas y luego usar la propiedad End (xlDown) para encontrar la última celda en el rango de celdas. Luego podemos ReDim nuestra matriz con el total de filas en el Rango, lo que nos permite recorrer el rango de celdas.
| 123456789101112131415161718 | Sub PopulateArray ()'declarar la matrizDim strSuppliers () como cadena'declara el número entero para contar las filasDim n como entero'cuenta las filasn = Rango ("B1", Rango ("B1"). Fin (xlDown)). Rows.Count'inicializa y llena la matrizReDim strCustomers (n)'declara el entero para bucleDim i como entero'poblar la matrizPara i = 0 A nstrCustomers (i) = Rango ("B1"). Offset (i, 0) .ValueSiguiente yo'mostrar cuadro de mensaje con valores de matrizMsgBox Join (strCustomers, vbCrLf)End Sub |
Cuando ejecutamos este procedimiento, devolverá el siguiente cuadro de mensaje.
