rellenar en excel

Cambia la letra "A" por la la letra de la columna donde tengas la información.

Sub Rellenar()
LastRow = Range("A65536").End(xlUp).Row + 1
For i = 1 To LastRow
If Range("A" & i).Value = "" Then
Range("A" & i - 1 & ":A" & i - 1).Copy Destination:=Range("A" & i)
End If
Next i
End Sub

Y si lo quieres tener cargado a los libros de excel lo puedes guardar en el libro de macros personal.xls para que lo tengas disponible y lo puedas usar cuando desees.

Hola... cómo pasa el tiempo... hace 4 años que tuve una pregunta similar y esta fue la ayuda que me proporcionaron:

Oscar Miron escribió: Hola Pepe, prueba hacer lo siguiente:

En una columna contigua vacia escribe una formula y copiala en todas las filas, la formula debe checar si la celda esta vacia entonces que ponga el dato de la celda de arriba de dicha formula. Ejemplo: Si tus datos estan en la columna A apartir de la celda A10 y en adelante, podriamos usar la columna "F" para poner las siguientes formulas:

En Celda F10 =SI(A10="",F9,A10)

Esta formula la copias en tus 10,000 filas con datos de la columna "F"
y una vez terminado, solo seleccionas las celdas "F10" en adelante y le copias solo los valores sobre la columna "A" (Edicion|Pegado especial...| Valores).

Saludines,
El Lic.

.