Sub Мяу()
     Dim arr, arr1
     arr1 = Range("A1").CurrentRegion.Value
     Dim lr&, col&, i&, j&
     col = Cells(1, Columns.Count).End(xlToLeft).Column
     lr = Cells(Rows.Count, 1).End(xlUp).Row
     ReDim arr(1 To lr)
     With CreateObject("Scripting.Dictionary")
         For i = 2 To lr
             For j = 1 To col
                 arr(i) = arr(i) & arr1(i, j) & "|"
             Next
             If .exists(arr(i)) Then
                 .Item(arr(i)) = 1
             Else
                 .Item(arr(i)) = 0
             End If
         Next
         Application.ScreenUpdating = False
         For i = lr To 2 Step -1
             If .Item(arr(i)) = 1 Then Rows(i).Delete
         Next
     End With
End Sub

CreateObject("Scripting.Dictionary")