La propiedad End del objeto Range

La propiedad End del objeto Range permite determinar la última celda ocupada en un rango de celdas. Esto es útil para realizar operaciones en la última celda ocupada repitiendo sobre varias celdas de principio a fin.

Sintaxis:

range.End(direction)

Parámetros:

• range: Objeto Range que representa el rango de celdas a evaluar.
• direction: Dirección en la que se desea buscar la última celda ocupada. Puede ser uno de los siguientes valores:
  • xlUp: Última celda ocupada hacia arriba.
  • xlDown: Última celda ocupada hacia abajo.
  • xlLeft: Última celda ocupada hacia la izquierda.
  • xlRight: Última celda ocupada hacia la derecha.
  • xlToRight: Última celda ocupada hacia la derecha, sin considerar celdas vacías.
  • xlToLeft: Última celda ocupada hacia la izquierda, sin considerar celdas vacías.
  • xlUpLeft: Última celda ocupada en diagonal hacia arriba y a la izquierda.
  • xlDownRight: Última celda ocupada en diagonal hacia abajo y a la derecha.
  • xlAny: Última celda ocupada en cualquier dirección (predeterminado).

Ejemplo 1: 

Encontrar la última celda ocupada de una columna:

Dim ultimaCelda As Range
Set ultimaCelda = Range("A1").End(xlDown)
MsgBox "La última celda ocupada en la columna A es: " & ultimaCelda.Address

Ejemplo 2: 

Seleccione el rango desde la celda A1 hasta la última celda ocupada en la hoja de trabajo activa:

Range("A1").End(xlAny).Select

Ejemplo 3:

Recorrer un rango de celdas de principio a fin y mostrar el valor de cada celda:

Dim celda As Range
For Each celda In Range("A1:C10")
    MsgBox celda.Value
Next celda
Recuerda:

Recuerda:

• La propiedad End devuelve un objeto Range que representa la última celda ocupada en la dirección especificada.
• Puedes utilizar el objeto Range devuelto para realizar operaciones en esa celda o en el rango extendido hasta esa celda.
• La propiedad End no considera celdas vacías si se utiliza con las direcciones xlToRight o xlToLeft.

Más rangos Especiales

• Uso del range.CurrentRegion
• Uso del Range.Copy
• Uso del Range.PasteSpecial
• Uso del Range.AutoFilter