エクセルでB列とD列を比較させて新規行を下1行に挿入するマクロ

添付画像のようにデータ(F以降も続く想定)がひたすら並んでいまして
B列とD列を比較させて差異があった場合に
新規行を下1行に挿入しC列、D列に
メモを入れたい場合のマクロをご教授お願い致します。

No.1 ベストアンサー 回答者： t_fumiaki 回答日時： 2016/03/31 17:27

2行目からデータが並んでいると仮定。

B列とD列で１個以上差が有ったら最終行の次行へコメント。
シート名をSheet1とする（cellsは行列が解りずらいのでRangeを使う）

Sub 例題()

Dim Cnt As Long
Dim UP As Long
Dim Sh As Worksheet

Set Sh = Worksheets("Sheet1") 'Shをシート名にする
UP = Sh.Range("E65536").End(xlUp).Row '最終行


For Cnt = 2 To UP

If Sh.Range("B" & Cnt).Value <> Sh.Range("D" & Cnt).Value Then
Sh.Range("C" & UP + 1).Value = "差異有"
Sh.Range("E" & UP + 1).Value = "差異大"
GoTo OWARI
End If

Next Cnt

OWARI:

Application.StatusBar = False
End Sub

この回答へのお礼

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

お礼日時：2016/03/31 20:21