VBAで空欄にデータに表示

質問

エクセルVBAのIFを使って、シートaのA列に値があって、B列が空欄の場合のみ、空欄のセルにシートbの値を表示させたいです。
上手くできませんでしたので、教えてください。

Sub Do文2()

Dim i As Integer
i = 1
If Worksheets("a").Cells(i, 2) = "" Then

Do While Worksheets("a").Cells(i, 1) <> ""

Worksheets("a").Cells(i, 2) = Worksheets("b").Cells(1, 1)
i = i + 1
Loop
End If

End Sub

回答No.1

noname#203218 · ベストアンサー

if文の位置が間違ってます。

Sub Do文2()

Dim i As Integer
i = 1

Do While Worksheets("a").Cells(i, 1) <> ""

If Worksheets("a").Cells(i, 2) = "" Then
Worksheets("a").Cells(i, 2) = Worksheets("b").Cells(1, 1)
End If

i = i + 1
Loop

End Sub

シート"a"のA列のデータの途中に空白セルが存在するのであれば、A列のデータが存在する最終行を取得する事が必要になり、マクロの一例は下記のようになります。

Sub Do文2()

Dim i As Integer
Dim Rmax as integer

Rmax = Worksheets("a").Cells(Rows.Count, 1).End(xlUp).Row

i = 1

Do While i<= Rmax

if Worksheets("a").Cells(i, 1) <> "" then

If Worksheets("a").Cells(i, 2) = "" Then
Worksheets("a").Cells(i, 2) = Worksheets("b").Cells(1, 1)
End If

End if

i = i + 1
Loop

End Sub

お礼

助かりました。
ありがとうございます。