Vba .FIND函数与.FIND和Offset（）一起使用

我正在Excel中为3张工作表编写代码，工作表1将显示工作表3中未出现在工作表2中的数据，为了完成此操作，代码如下：

Dim r As Excel.Range
Dim cell As Excel.Range
Set r = Sheet3.Range(Sheet3.Cells(1, 1), Sheet3.Cells(Rows.Count, 1).End(xlUp))
Dim curRowSheet1 As Long

curRowSheet1 = 1

For Each cell In r
    Set rFind = Sheet2.Range("A:A").Find(cell.Value)



    If (rFind Is Nothing) Then
        cell.EntireRow.Copy Sheet1.Cells(curRowSheet1, 1)
        curRowSheet1 = curRowSheet1 + 1
    End If
Next cell

注意：我试图包括第二个。在第9行“SET rFind”下查找，如果查找列（“a:Ä”）中的单元格值，然后它还验证第2页和第3页的列（“B:B”）中的值是否相同，我想我可以使用Offset（）函数来比较这些数据，对此的任何建议都将不胜感激

---

谢谢。

我建议使用

工作表函数.CountIfs

Sub tgr()

    Dim ACell As Range

    For Each ACell In Sheet3.Range("A1", Sheet3.Cells(Rows.Count, "A").End(xlUp)).Cells
        If WorksheetFunction.CountIfs(Sheet2.Columns("A"), ACell.Value, Sheet2.Columns("B"), ACell.Offset(, 1).Value) = 0 Then
            ACell.EntireRow.Copy Sheet1.Cells(Rows.Count, "A").End(xlUp).Offset(1)
        End If
    Next ACell

End Sub