How to fill cell with data from a previous cell till meet next cell with data in a same column in Excel

EggHeadCafe - Software Developer Portal of Choice
Scriptless ASP Progress Indicator
http://www.eggheadcafe.com/tutorials...rogress-i.aspx

Sub test()
Dim rng As Integer, i As Integer

rng = Cells(Rows.Count, "F").End(xlUp).Row
For i = 2 To rng
Cells(i, "F").Select
ActV = ActiveCell.Offset(-1, 0).Value
If ActiveCell.Value = "" Then
ActiveCell.Value = ActV
End If
Next i
End Sub


On Oct 19, 2:12*pm, Ishi Elpitiya wrote:
How to fill cell with data from a previous cell till meet next cell with data in a same column in Excel

EggHeadCafe - Software Developer Portal of Choice
Scriptless ASP Progress Indicatorhttp://www.eggheadcafe.com/tutorials/aspnet/5e32d930-dc4a-476c-8e15-f...

Select the column then F5SpecialBlanksOK

Type an = sign in active blank cell.

Point or arrow to cell above.

Hit CTRL + ENTER.

Copy the column then Paste SpecialValuesOKEsc.


Gord Dibben MS Excel MVP

On Mon, 19 Oct 2009 02:12:07 -0700, Ishi Elpitiya wrote:

How to fill cell with data from a previous cell till meet next cell with data in a same column in Excel

EggHeadCafe - Software Developer Portal of Choice
Scriptless ASP Progress Indicator
http://www.eggheadcafe.com/tutorials...rogress-i.aspx