检查重复项时忽略标头

Question

我在检查重复时试图忽略标题。我正在使用代码检查两个不同工作表上的相同列，并将其作为重复项获取。如果我从第2行开始，它会跳过复制副本，只复制第三个并向下复制。

lR1 = S1.Range("A" & Rows.Count).End(xlUp).Row
lR2 = S2.Range("A" & Rows.Count).End(xlUp).Row
For Each c In S1.Range("A1", "A" & lR1)
    If Not IsEmpty(c) Then
        n = 0
        On Error Resume Next
        n = Application.Match(c.Value, S2.Range("A1", "A" & lR2), 0)
        On Error GoTo 0
        If n > 0 Then
            If Not dRws Is Nothing Then
                c.EntireRow.Select
                Selection.Cut
                Sheets("Duplicate").Select
                Range("a2").Select
                Selection.Insert Shift:=xlDown
                S1.Select

Answer 1

我自己回答：D我有一条线向下删除任何存储为dRws的东西，因为我已经将行移动到另一张纸上，没有用它。