EXCEL VBAで空白行を挿入したい

EXCEL VBAで空白行を挿入したい

EXEL VBAの処理にて下記の処理をしようと思っています。

１、月度フラグ１の上に空白行を２行挿入
２、地域区分が変わったら空白行を２行挿入

１月　地域１
１月　地域１

１月　地域２
１月　地域２

２月　地域１
２月　地域１

２月　地域２
２月　地域２

としたいのですが、

１月　地域１
１月　地域１

１月　地域２
１月　地域２



２月　地域１
２月　地域１

２月　地域２
２月　地域２

のように、月度が変わった時に４行挿入されてしまします。
下記のコードのどこを修正すれば、２行に戻せますでしょうか。
アドバイスをお願いいたします。

'月度を分割
Dim Md As Long
Const Cl = 28 '月度分フラグの列

For Md = Cells(Rows.Count, Cl).End(xlUp).Row To 3 Step -1
If Cells(Md, Cl) = 1 Then
Rows(Md & ":" & Md + 1).Insert shift:=xlShiftDown
End If
Next Md


'地方区分を分割
Dim Md2 As Long
Const Cl2 = 29

For Md2 = Cells(Rows.Count, Cl2).End(xlUp).Row To 3 Step -1
If Cells(Md2 - 1, Cl2) <> Cells(Md2, Cl2) Then
Rows(Md2 & ":" & Md2 + 1).Insert shift:=xlShiftDown
End If
Next Md2

No.1 ベストアンサー 回答者： layy 回答日時： 2010/09/17 15:25

パッと見ただけですが

月が変わると行挿入
地域変わるとまた行挿入
としてませんか

やりたいのは
月が変われば
か
月が同じで地域違いなら、
つまりは
月か地域のどちらかが変われば、の考え方かと思います。

１行ずつ実行するデバッグの方法はわかりますか。これでどのタイミングがあやしいかわかります。

この回答へのお礼

lavv様

アドバイスありがとうございました。

おっしゃる通りに条件をorにしてみたらうまくいきました！

お礼日時：2010/09/17 15:51