空白行を取得し、その次の行から２行ずつセルを結合するＶＢＡコードについて

質問

例えばＡ列の空白行を取得し、
その次の行から２列ずつ結合し、
次の文字が入力されている手前まで連続でそれを続ける
ＶＢＡコードはどのように記述したらよろしいでしょうか？

回答No.1

kybo · ベストアンサー

サンプルです。

Sub macro()
Dim C As Range
Set C = Range("A9")
Do Until C.Value <> "" Or C.Offset(1).Value <> ""
C.Resize(2).Merge
Set C = C.Offset(1)
Loop
End Sub

お礼

出来ました。
ありがとうございました。