在Excel VBA中编写For循环

Question

我目前正在清理数据库。我通常将记录上传到电子表格中并运行IF语句。如果记录为假，则我从A2：D2中以黄色突出显示，然后选择G2：I2添加一行。 （父ID位于另一个数据库中）

Sub test()
'
' test Macro
'
' Keyboard Shortcut: Ctrl+q
'
    Range(Selection, Selection.End(xlToRight)).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

    Selection.End(xlToRight).Select
    Range("G2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Insert Shift:=xlDown
    Range("F2").Select
    Selection.ClearContents
    Range("F2").Select
End Sub

这是VBA代码的外观，但是我想在记录ID与G列上的其他记录ID不匹配的每一行中这样做