Macro Excel - Rellenar celdas en blanco.

[mrocf]

Hola! dewol. Con la siguiente variante no requieres estar recorriendo la hoja para obtener el resultado solicitado:

Código vb:

Sub Completar()
[m1] = [a1]
Range("m2:m" & [b65536].End(xlUp).Row).FormulaR1C1 = "=IF(RC1 = """", R[-1]C, RC1)"
With Range("m1", [m65536].End(xlUp))
  [a1].Resize(.Rows.Count) = .Value
  .Delete
End With
End Sub
 

Comenta -por favor- si te ha servido, ¿si?

Saludos, Cacho.