Autofill

[krisso]

Hi,

I am trying to find a way of populating a blank cell in a range of data with the adjacent above cell that looks like this

100011 PIO 367.5
100016 BPO 741.2
PIO 1301.37
100032 BPO 583.5
PIO 695.65
100034 BPO 454.8
PIO 2397.12
100035 PIO 1731.87
100036 BPO 360
PIO 1527.62

so for cell a3 i need it to copy a2 and a5 to copy a4 etc etc

is there a macro of some description that would do this easily?

Thanks

Chris

 

[VoG]

Try

Sub FillA()
Dim LR As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
With Range("A1:A" & LR)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
End Sub

 

[Andrew Poulsom]

Select the cells in the first column then choose Edit|Go To|Special|Blanks|OK. In the formula bar type =, point to the cell above the active cell and press Ctrl+Enter. You can Copy/Paste Special Values afterwards if you want.

 

[Sektor]

1. Select column A till end of data.
2. F5
3. Special...
4. Blanks
5. OK
6. Type in A3: =A2
7. Ctrl+Enter

 

[krisso]

Vog,

That worked a treat.

Thank you

Chris