На этот вопрос уже есть ответ здесь:

Представьте, что у вас есть два набора данных, а количество строк и столбцов одинаково. Теперь вы хотите проверить, совпадают ли данные в ячейках в одном наборе с данными в ячейках с тем же относительным адресом в другом наборе. Если это верно для всех ячеек строки, удалите строку из обоих наборов. Я могу очень легко кодировать это, сравнивая каждую ячейку, и это не подходит для больших наборов данных. См. Код ниже для двух столбцов, где два набора данных оказываются в одном и том же листе рядом друг с другом, смещением столбца 300 между ними.

Dim RngOb As Range
Dim c As Range

Range("A1", "B1").Select
set RngOb = Range(Selection, Selection.End(xlDown))

For Each c In RngOb.Rows
    If c.Cells(1,1).Value = c.Offset(0, 300).Cells(1,1).Value Then
        If c.Cells(1,2).Value = c.Offset(0, 300).Cells(1,2).Value Then    
            c.EntireRow.Delete
        End If
    End If
Next

Мои фактические данные имеют более 100 столбцов и разное количество столбцов изо дня в день. Я ищу умный, быстрый способ сделать это для больших наборов данных. Я высоко ценю ответы, отзывы и критику. : D