VBA比较两个不同工作表中的行，如果它们匹配则以红色突出显示

Question

我一直在网上搜索，但似乎无法在我尝试做的事情上找到太多帮助。

我希望在一本工作簿中比较两张纸。例如，如果工作表1的第1行与工作表2的一行匹配，则将其突出显示为红色（如果不留空白）。我尝试过：

Sub Test_Sheet()
    Dim r As Range
    Dim s As Range
    Set s = Sheets("Already Billed").Columns(1)

    For Each r In ActiveSheet.UsedRange.rows
        If Not (s.Find(r.Cells(1,1).Value)Is Nothing) Then
            r.Interior.ColorIndex = 3
        End If
    Next r
End Sub

但是，如果我更改第3列中的数据，则它不会注册，因为上面的内容仅在第1列中查找，但是我需要检查整行。

有人可以帮我吗？