空白のセルに隣の１段したの値を抜き出して入れる

質問

ＶＢＡ初心者です
たとえば添付の様な形のＡ，Ｂが空白になっているデータが３００行位
続いている場合Ｂ列の空白にA行の1段下の値を抜き出したいときにどういうＶＢＡが書けるか分かる方ご教授願います。（Ｂ７にはｘｘ、Ｂ１４にはＹＹ、Ｂ１９にはＨＨなどの用に）。

回答No.1

mar00 · ベストアンサー

３００行位なら
Sub Macro1()
For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
If Range("A" & i).Value = "" And Range("B" & i).Value = "" Then
Range("B" & i) = Range("B" & i).Offset(1, -1).Value
End If
Next i
End Sub
でも動作は重くないと思いますが。