エクセルにて行数を揃えたい。

質問

エクセルにて、下記のように、ランダムにデータが並んでいます。

　　　A　　　　　B　　　　　　C　　　　　　　D　　　・・・・
１　みかん　　東京　　　南
２　　　　　　　３人　　　　東
３　　　　　　　　　　　　　　　　　　　　　車
４-----------------------------------------
５　もも　　　茨城　　　北
６　　　　　　　４人　　　西
７　　　　　　　川
８　　　　　　　　　　　東京　　　　　　　　足
９-----------------------------------------
10　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・　　　　　　　　　　　

と約２万行がならんでいます。（最小３行　最大５行でひとつのかたまり）

これらを３行には２行挿入、４行には１行を最後に挿入して必ずどこのかたまりも５行にする方法はマクロ、関数等などでありますでしょうか？
何卒、よろしくお願いいたします。

回答No.2

fumufumu_2006 · ベストアンサー

こんなのではどうでしょう？
要はマイナス行が６の倍数の行になるようにします。（５行+区切り(-)行）
５行以上あいてる場合のチェックはしてません。
ちなみに半角ハイフンは半角マイナスですよね？

Sub sample()
Dim r As Long
Dim r0 As Long
r0 = 0
r = 1
Do While r <= Cells(Cells.Rows.Count, 1).Row
If Cells(r, 1) = String(160, "-") Then
If r - r0 <> 6 Then
Rows(r & ":" & r0 + 5).Insert '
End If
r0 = r0 + 6
r = r0
End If
r = r + 1
Loop
End Sub

お礼

完璧です。本当にありがとうございました。
あと少しで地道に手直しするところでした。

回答No.1

jo-zen

質問の例で４行目や９行目はどういった区切り方法になっているのですか？線が一直線に引いてありますが、実際はどうなのでしょうか？それによっても変ってきます。

補足

お忙しいなか、返信ありがとうございます。

４行目９行目ですがＡの列に半角ハイフン（-）が１６０個入っています。
どの行も１６０個の半角ハイフンで統一です。
そして、Ｂ列以降はすべて空白です。

何卒よろしくお願いいたします。