セルの選択、貼り付け

質問

よろしくお願いします。
下記のような処理を大量データに対して行うVBAを書きたいのですが、なかなか上手くできません。
〈処理〉
A列の空白セルに対して、空白セル(例えばA2)の上のセル(A1)の値(2003)をコピーし、空白セル(A2)に貼り付ける。
次に、ひとつ下空白セル(A3)も同様に1つ上のセル(A2)の値(2003)をコピーし、空白セル(A3)に貼り付ける。
を繰り返す。
このようなプログラムを書きたいのですが。

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

よろしくお願いします。

回答No.1

hana-hana3 · ベストアンサー

Sub test3()

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

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

End Sub

お礼

ありがとうございます。おかげさまで解決できました。