Как вывести данные в excel?

Question

[MinasM]

Дана таблица в excel следующего вида.

| A | B |
|-----------------|---|
| Иванов И.И. | A |
|______________ | B |
| Петров П.П. | A |
|______________ | B |
|_______________ | C |
| Сидоров С.С. | A |
|_______________| B |
| Петрова А.В. | A |
|_______________ | B |
|_______________ | C |

нужно преобразовать путем макроса к такому виду

| A | B |
|-----------------|---|
| Иванов И.И. | A |
| Иванов И.И. | B |
| Петров П.П. | A |
| Петров П.П. | B |
| Петров П.П. | C |
| Сидоров С.С. | A |
| Сидоров С.С. | B |
| Петрова А.В. | A |
| Петрова А.В. | B |
| Петрова А.В. | C |

Answer 1

[MinasM]

Допетрил сам. Авось, кому нить пригодится

Sub hi
Dim i, j
i = 1
j = 1

while(range("B" & i +1).Value <> 0)
If Range ("A" & i).Value <> 0 then
Range ("D" & i).Value = Range ("A" & i).Value 
end If

If Range ("D" & i).Value = 0 then
Range ("D" & i + 1).Value = Range ("A" & i).Value 
end If

i=i+1
wend

while(range("B" & j).Value <> 0)
Range ("E" & j).Value = Range ("B" & j).Value
j=j+1
wend

End sub

Answer 2

[Xander017]

Sub Макрос1()
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[-1]C"
End Sub