エクセルマクロが組めない。

質問

マクロど初心者です。
エクセルで空白の欄には上の文字が入力されていく
マクロをを組みたいのですが
どなたか教えてください。お願いいたします。
例えば

　　　　A　　　　B　　　　C
１　　兵庫県
２
３　　
４　　大阪府
５
６　　京都府
７
８
９　　広島県

　とあった場合、（A2)(A3)には兵庫県・（A5)大阪府・（A7)(A8)には
　京都府といったような感じです。
　よろしくお願いします。

回答No.2

xsizukux · ベストアンサー

B列にもデータがあるとして、最終行をB列で調べて処理してます。
B列以外の場合は"B65536"の箇所を変更してください。

Dim i As Long
Dim strA As String
With Worksheets("Sheet1")
For i = 1 To .Range("B65536").End(xlUp).Row
If .Cells(i, "A").Value = "" Then
.Cells(i, "A").Value = strA
Else
strA = .Cells(i, "A").Value
End If
Next
End With

お礼

返事遅くなりましてすいません。
教えて頂いたやり方で無事にできました（＾◇＾）。
ありがとうございます。
これから自分でも少しずつ勉強していきたいとおもいます。

回答No.3

merlionXX

A1が空白ではないものとして

Sub TEST()
Dim i As Long
With ActiveSheet
For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
If .Cells(i, "A") = "" Then
.Cells(i, "A") = .Cells(i, "A").Offset(-1)
End If
Next
End With
End Sub

回答No.1

test_

確認をしていませんが、
以下のような2重ループでできると思います。
Whileあたりで間違っていると思いますが、
手直ししたら使えると思います。
また、いろいろな書き方がありますので、
どうぞ良いように使ってやってください・・・・。

For i = 1 To 300
If Len(Worksheets("Sheet1").Cells(i, 1)) = 0 Then
j = 0
While (Len(Worksheets("Sheet1").Cells(i - j, 1)) <> 0)
Worksheets("Sheet1").Cells(i, 1) = Worksheets("Sheet1").Cells(i - j, 1)
j = j + 1
Wend
End If
Next i