Поиск и удаление совпадающих строк в разных листах

[hybrid84]

Да, именно так.
Может быть несколько совпадений по одному столбцу,
но удалять надо только те строки которые сопадают по двум.

[SAS888]

Если сравнивать по 2-м столбцам, то так:

Sub Main()
    Dim i As Long, j As Long, k As Long, x As New Collection, a, b, c, d
    a = Sheets(1).UsedRange.Value: b = Sheets(2).UsedRange.Value
    ReDim c(1 To UBound(a, 1), 1 To UBound(a, 2)): ReDim d(1 To UBound(b, 1), 1 To UBound(b, 2))
    Application.ScreenUpdating = False: On Error Resume Next
    For i = 1 To UBound(a, 1)
        x.Add a(i, 1) & a(i, 2), CStr(a(i, 1) & a(i, 2))
    Next
    On Error GoTo 0: k = 1
    For i = 1 To UBound(b, 1)
        On Error Resume Next
        x.Add b(i, 1) & b(i, 2), CStr(b(i, 1) & b(i, 2))
        If Err = 0 Then
            For j = 1 To UBound(d, 2)
                d(k, j) = b(i, j)
            Next
            k = k + 1
        Else: On Error GoTo 0
        End If
    Next
    Sheets(2).UsedRange.Value = d: Set x = Nothing
    For i = 1 To UBound(b, 1)
        x.Add b(i, 1) & b(i, 2), CStr(b(i, 1) & b(i, 2))
    Next
    On Error GoTo 0: k = 1
    For i = 1 To UBound(a, 1)
        On Error Resume Next
        x.Add a(i, 1) & a(i, 2), CStr(a(i, 1) & a(i, 2))
        If Err = 0 Then
            For j = 1 To UBound(c, 2)
                c(k, j) = a(i, j)
            Next
            k = k + 1
        Else: On Error GoTo 0
        End If
    Next
    Sheets(1).UsedRange.Value = c
End Sub

Условие: в обоих листах должно быть использовано не менее 2-х столбцов.