Как найти и подсчитать повторяющиеся строки?

[Jacki]

Есть таблица 10 столбцов и множество строк (большой массив).

Нужно найти повторяющиеся строки, подсчитать кол-во повторов.

[SAS888]

Ну, нашли... Посчитали... И куда девать результат?
Следующий макрос подсчитает количество повторяющихся строк в диапазоне "A1:J1000" (1000 строк, 10 столбцов) и количество повторов каждой строки поместит в столбец "K" в той же строке.

Sub Main()
    Dim i As Long, x As Range, y As Range, a(), b(), c(): Application.ScreenUpdating = False
    Set x = [A1:J1000]: a = x.Value: Set y = x.Offset(, x.Columns.Count).Resize(x.Rows.Count, 1)
    ReDim b(1 To UBound(a, 1), 1 To 1): c = b
    For i = 1 To UBound(a, 1): b(i, 1) = Join(Application.Index(a, i, 0), "|"): Next
    y.Value = b
    For i = 1 To UBound(b, 1): c(i, 1) = Application.CountIf(y, b(i, 1)): Next
    y.Value = c
End Sub

Если нужно, можно сделать пользовательскую функцию.

[kuklp]

Хотя, твой код в теме от 04:54 возможно, автору и полезен был бы с небольшой правкой. Тут принципиально другой подход(и как всегда, красив), чем у меня.