エクセルのマクロ：結合をずらして行う

質問

Sub abc()
Range("F7:F8").MergeCells = True
Range("G7:G8").MergeCells = True
Range("H7:H8").MergeCells = True

Range("F15:F16").MergeCells = True
Range("G15:G16").MergeCells = True
Range("H15:H16").MergeCells = True

Range("F23:F24").MergeCells = True
Range("G23:G24").MergeCells = True
Range("H23:H24").MergeCells = True
End Sub
エクセルのマクロで、
こんな感じで８ずつ下にセルの結合を
していきたいのですが、
ループもしくは
Selection.Offset(8,0).Select
などを使って一括で行う方法はありませんでしょうか？
お願いします。

回答No.1

toshi_ho · ベストアンサー

100行までするとすれば、次のようになります。
For i = 7 To 100 Step 8
Range(Cells(i, 6), Cells(i + 1, 6)).MergeCells = True
Range(Cells(i, 7), Cells(i + 1, 7)).MergeCells = True
Range(Cells(i, 8), Cells(i + 1, 8)).MergeCells = True
Next

お礼

ありがとうございます！！
完璧です！！

回答No.2

hirumin

Sub abc()
For i = 1 To 10
j = i * 8 - 1
For k = 6 To 8
Range(Cells(j, k), Cells(j + 1, k)).MergeCells = True
Next k
Next i
End Sub

i のところに、セル結合の個数を入れて下さい。上では「10」にしています。