excel - vacias - Llenar cualquier celda vacía con el valor anterior

rellenar celdas en blanco con contenido de celda anterior

Question

Quiero completar todas las celdas vacías usando los valores de las celdas anteriores

state name
IL Mike
Sam
CA Kate
Bill
Leah

Debería ser el siguiente

 state name
IL Mike
IL Sam
CA Kate
CA Bill
CA Leah

Intenté lo siguiente

Sub split()
Dim columnValues As Range, i As Long
Set columnValues = Selection.Area
Set i = 1
For i = 1 To columnValues.Rows.Count
If (columnValues(i) = "") Then
columnValues(i) = columnValues(i - 1)
End If
Next
End Sub

Me sale un error cuando configuro i . ¿Cómo puedo modificar mi código?

Answer 1

Dado que usted solicitó VBA, hay una manera más rápida que el bucle (el equivalente de VBA de los frutos planteados anteriormente, con el paso adicional de eliminar la fórmula al final):

On Error Resume Next
With Selection.SpecialCells(xlCellTypeBlanks)
.FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With

Answer 2

Para aquellos que no requieren VBA para esto, seleccione Columna A, Ir a Especial ..., espacios en blanco y = , Arriba y Ctrl + Intro debería dar el mismo resultado.

Answer 3

Es porque debería ser definido como i=1 . Aunque hay algunos otros problemas con el código. Lo cambiaría a algo como esto:

Sub split()
Dim columnValues As Range, i As Long
Set columnValues = Selection
For i = 1 To columnValues.Rows.Count
If columnValues.Cells(i, 1).Value = "" Then
columnValues.Cells(i, 1).Value = columnValues.Cells(i - 1, 1).Value
End If
Next
End Sub