VBA (条件付セルの選択、貼り付け)

質問

よろしくお願いします。
下記のような処理を大量データに対して行うVBAを書きたいのですが、なかなか上手くできません。
手順としては、
(1)空白セルを選択肢する。
(2)1つ上のセルを選択する
(3)空白セルに貼り付ける。
(4)繰り返す。
だとおもうのですが、なかなか上手くVBAが書けません。

　A　　　　　　　　　　A
１２００３　　　　　１２００３
２　　　　　　　　　２２００３
３　　　　　　　　　３２００３
４２００５　⇒　　　４２００５
５　　　　　　　　　５２００５
６　　　　　　　　　６２００５
７　　　　　　　　　７２００５
８１９９９　　　　　８１９９９
：　　　　　　　　　：
：　　　　　　　　　：

よろしくお願いします。

回答No.1

hana-hana3

＞手順としては、

この書かれた手順が全く理解出来ませんが・・・・。
「先頭の１文字を指定の文字に変化させる」と理解しました。

Sub test2()

Dim i As Long
Dim str As String
Dim tmp As String

For i = 1 To 10000
tmp = Cells(i, 1)
If tmp <> "" Then
If Len(tmp) = 1 Then
Cells(i, 1) = tmp & Right(str, Len(str) - 1)
Else
str = tmp
End If
End If
Next

End Sub

お礼

ありがとうございます。十分に質問の意図が伝わらず、申し訳ありませんでした。