Sub tt()
       Dim sh As Object, a(), ind&, i&, x&, t$, k

       With CreateObject("Scripting.Dictionary")
           For Each sh In ThisWorkbook.Worksheets
               If sh.Name <> "Лист4" Then
                   ind = ind + 1
                   a = sh.[a1].CurrentRegion.Value
                   For i = 1 To UBound(a)
                       t = ""
                       For x = 1 To UBound(a, 2)
                           t = t & "|" & a(i, x)
                       Next
                       t = Mid(t, 2)
                       .Item(t) = .Item(t) + 1

                   Next
               End If
           Next
           i = 0
           Sheets("Лист4").Cells.Clear
           For Each k In .keys
               If .Item(k) = ind Then
                   i = i + 1
                   Sheets("Лист4").Cells(i, 1).Resize(, x - 1) = Split(k, "|")
               End If
           Next
       End With

End Sub