エクセルのマクロについて

質問

すみません。教えてください。
以下のようなエクセルの表があるとします。
コード1，コード2，コード3，コード4のどれか1つでも違っていれば，次の行に空白行を挿入するというマクロを作成できればと思うのですが，どのような記述になるのでしょうか。
結果的には，3行目と4行目の間，7行目と8行目の間，8行目と9行目の間に行が挿入されればよいのですが。
エクセルVBAの本を読んだりしてはみたのですが，よくわからず，お伺いいたします。
よろしくお願いいたします。

1行目　　コード1　　コード2　　コード3　　コード4
2行目　　100　　　　10　　　　　15　　　　　110
3行目　　100　　　　10　　　　　15　　　　　110
4行目　　200　　　　10　　　　　15　　　　　110
5行目　　200　　　　10　　　　　15　　　　　110
6行目　　200　　　　10　　　　　15　　　　　110
7行目　　200　　　　10　　　　　15　　　　　110
8行目　　100　　　　10　　　　　15　　　　　210
9行目　　100　　　　10　　　　　25　　　　　110

回答No.1

keithin · ベストアンサー

こんなカンジで、下から順繰り調べていきます。

sub macro1()
　dim r as long

　for r = range("A65536").end(xlup).row to 3 step -1
　　if cells(r, "A") <> cells(r - 1, "A") _
　　or cells(r, "B") <> cells(r - 1, "B") _
　　or cells(r, "C") <> cells(r - 1, "C") _
　　or cells(r, "D") <> cells(r - 1, "D") then

　　　cells(r, "A").entirerow.insert shift:=xlshiftdown
　　end if
　next r
end sub

お礼

お礼が遅くなり，申し訳ありません。このとおりにさせていただいたら，うまくいきました。マクロを使えることはすばらしいことですね。今後勉強していきたいと思います。

回答No.2

tom04

こんにちは！
一例です。

Sub Sample1()
Dim i As Long
i = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
Range("A:A").Insert
With Range(Cells(2, "A"), Cells(i, "A"))
.Formula = "=B2&""_""&C2&""_""&D2&""_""&E2"
.Value = .Value
End With
For i = Cells(Rows.Count, "A").End(xlUp).Row To 3 Step -1
If Cells(i, "A") <> Cells(i - 1, "A") Then
Rows(i).Insert
End If
Next i
Range("A:A").Delete
Application.ScreenUpdating = True
End Sub

※　色々なやり方があると思いますが、A列を挿入　→　A列を作業用の列として、
元のA～D列をつなげたものを下から比較し、違う場合に行挿入
といった感じでやっています。m（_ _）m

お礼

お礼が遅くなり，申し訳ありません。このとおりにさせていただいたら，うまくいきました。マクロを使えることはすばらしいことですね。また，いろいろな方法があるのですね。今後勉強していきたいと思います。