Fill or copy cell if blank

[JAYLO]

Looking for a way to walk down a column and, if a cell is blank copy the contents of the cell above and keep going.

 

[charleymax]

Looking for a way to walk down a column and, if a cell is blank copy the contents of the cell above and keep going.

Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[-1]C"

 

[JamesW]

Hi,

Try:

Sub test()
    lRow = Range("A65536").End(xlUp).Row
    
    For i = 2 To lRow
        If Cells(i, 1).Value = "" Then Cells(i, 1).Value = Cells(i - 1, 1).Value
    Next
End Sub

Change Cells(i,1) to the column you want (B is 2, C is 3 etc).

 

[Jonmo1]

Highlight the column
Click Edit - Goto - Special - Blanks - OK
Press =
Press UP Arrow
Press CTRL + ENTER

Now you have formulas where there used to be blanks.
If you want to remove the formulas and leave the values

Highlight the column
Right click - Copy
Right click - Paste Special - Values - OK


Hope that helps.