Of found the answer, generously provided by Eduardo if anyone is interested
for future reference:

Select the cells in the column, starting in the row below the column heading.
Choose Edit | Go To
Click the Special button
Select Blanks, click OK
Type an equal sign
Press the up arrow on the keyboard -- this will enter a reference to the
cell above -- cell A2 in this example
Hold the Ctrl key and press Enter -- this enters the formula in all selected
cells


"msnyc07" wrote:

A few months ago someone posted a great solution for the following problem
which doesn't seem to be working all of a sudden;

I have a column with values which has blank rows between values (anywhere
from 1 to 10 blank rows) and I need to fill those with the values of the last
cell with a value i.e. from

AAA

BBB


CCC



DDDD

to

A few months ago someone posted a great solution for the following problem
which doesn't seem to be working all of a sudden;

I have a column with values which has blank rows between values (anywhere
from 1 to 10 blank rows) and I need to fill those with the values of the last
cell with a value i.e. from

AAA
AAA
BBB
BBB
BBB
CCC
CCC
CCC
CCC
DDDD

I thought the process had been:

Select Column down to last value
Ctrl-G
Special
Blanks
Shift-Ctrl Up
Fill Down

But that only fills all the blanks with the first value encountered. I know
I am missing on obvious step here but I cannot recall, any insight
appreciated.

Another way

1. Select an unused cell out of the data range (say E2)
2. Enter the formula in cell E2 which references the top cell (=E1)
3. Copy the cell (not the formula)
4. Keeping the copy; select the data range in ColA (say A1:A100).
5. Press F5. From Goto windowSpecial from options select 'Blanks'
6. This will select all blanks. Now Right clickPasteSpecialFormulasOK will
fill in with the data you need.
7. Once done you can select col A Copy Paste SpecialValues to turn
formulas to actual values

If you are looking for a macro; considering that ColB has values upto the
last row

Sub MyMacro()
Dim lngRow As Long
For lngRow = 2 To Cells(Rows.Count, "B").End(xlUp).Row
If Trim(Range("A" & lngRow)) = "" Then _
Range("A" & lngRow) = Range("A" & lngRow - 1)
Next
End Sub

--
Jacob (MVP - Excel)


"msnyc07" wrote:

Of found the answer, generously provided by Eduardo if anyone is interested
for future reference:

Select the cells in the column, starting in the row below the column heading.
Choose Edit | Go To
Click the Special button
Select Blanks, click OK
Type an equal sign
Press the up arrow on the keyboard -- this will enter a reference to the
cell above -- cell A2 in this example
Hold the Ctrl key and press Enter -- this enters the formula in all selected
cells


"msnyc07" wrote:

A few months ago someone posted a great solution for the following problem
which doesn't seem to be working all of a sudden;

I have a column with values which has blank rows between values (anywhere
from 1 to 10 blank rows) and I need to fill those with the values of the last
cell with a value i.e. from

AAA

BBB


CCC



DDDD

to

A few months ago someone posted a great solution for the following problem
which doesn't seem to be working all of a sudden;

I have a column with values which has blank rows between values (anywhere
from 1 to 10 blank rows) and I need to fill those with the values of the last
cell with a value i.e. from

AAA
AAA
BBB
BBB
BBB
CCC
CCC
CCC
CCC
DDDD

I thought the process had been:

Select Column down to last value
Ctrl-G
Special
Blanks
Shift-Ctrl Up
Fill Down

But that only fills all the blanks with the first value encountered. I know
I am missing on obvious step here but I cannot recall, any insight
appreciated.