Fill-Down Until Next Blank Cell

[Hjalma]

Can some of you gurus please solve my fill down issue. I've try to solve this few hours and now my brain hurts

I have lot of data in column B. I need to copy the first cell and paste content to next ones before empty cell.
Replacing xxx with the data in first cell all the way to the end of column B.

Before:

After :

<tbody>
</tbody>

123-1	123-1
xxx	123-1
123-2	123-2
xxx	123-2
xxx	123-2
321-1	321-1
xxx	321-1
xxx	321-1
xxx	321-1

<tbody>
</tbody>

Thanks.

 

[rjwebgraphix]

This works for me, however if you have a header row, you may want to change....

for i = 1 to lr

to have 1 be whatever the first row of the data is.

Sub FillItUp()

Dim lr As Long, i As Long
Dim Cell2Copy As String

lr = Range("A65536").End(xlUp).Row
For i = 1 To lr
    If Cells(i, "A") <> "xxx" And Cells(i, "A") <> "" Then
        Cell2Copy = Cells(i, "A").Value
    End If
    If Cells(i, "A") = "xxx" Then
        Cells(i, "A").Value = Cell2Copy
    End If
Next i

End Sub

 

[Sixthsense]

I don't know why there is a line between each data. Just give a try like this...

Select the range and Press Ctrl+G>>Special>>Blanks>>Ok>> Press = and Press Up Arrow and press Ctrl+Enter. then copy the range and paste it as values to convert the formula cells as valuees.

 

[AlphaFrog]

Try something like this...

[color=darkblue]Sub[/color] Fill_Down()
    [color=darkblue]Dim[/color] rngArea [color=darkblue]As[/color] Range
    Application.ScreenUpdating = [color=darkblue]False[/color]
    [color=darkblue]For[/color] [color=darkblue]Each[/color] rngArea [color=darkblue]In[/color] Range("B:B").SpecialCells(xlCellTypeConstants).Areas
        rngArea.Value = rngArea(1).Value
    [color=darkblue]Next[/color]
    Application.ScreenUpdating = [color=darkblue]True[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[Hjalma]

Hi
Suggested solutions totally solve my problemo.
Virtual drinks to everyone! (and real one if we ever meet )