行数がばらばらなセルの結合箇所を同じ行数に統一して行の挿入をしたい

例）
A１～A８　セル結合（8行）
A9~A12　セル結合（4行）、、、、
A13～A15　セル結合（3行）など結合がばらばらになってます。
これをすべて8行で統一したいのですが
全部で1000項目あるため1つずつ挿入してると
時間がかかってしまいます。
まとめて結合した行を8行で統一して行の挿入ができる
方法がございましたらお手数ですが
ご教授よろしくお願いいたします。

No.1 ベストアンサー 回答者： ママチャリ 回答日時： 2016/03/25 23:18

A列中の結合されたセルのうち、結合行数が8行未満のものに対して行を追加して8行結合にするマクロです。

よろしかったら、お試しください。

Sub sample()
Dim I As Long
Dim J As Long
Dim ma As Range
For I = 1 To Rows.Count
If I > Cells.SpecialCells(xlCellTypeLastCell).Row Then Exit For
Set ma = Cells(I, "A")
If ma.MergeCells Then
J = ma.MergeArea.Rows.Count
If J < 8 Then
Rows(I + 1 & ":" & I + 8 - J).Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove
End If
End If
Next I
End Sub

この回答へのお礼

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

お礼日時：2016/03/27 12:11