счетчик

[Dimati87]

помогите написать счетчик. когда запускаем макрос, он создает новый лист. в этом листе выдается сумма по фамилиям, а как сделать чтоб он выдавал еще и количество фамилий

[SAS888]

А куда помещать это значение? Пусть, например, в ячейку "C1". Тогда последней строкой кода добавьте

[C1] = x.Count

[Dimati87]

Сообщение от SAS888

А куда помещать это значение? Пусть, например, в ячейку "C1". Тогда последней строкой кода добавьте

[C1] = x.Count

допустим в С1 но нужно чтоб выводил колличество пертовых, иванновых,
......, на против фамилии

[SAS888]

В Вашем макросе, фрагмент кода

With Sheets("Лист1")
        For i = 1 To UBound(b)
            b(i) = Application.SumIf(.Columns("A"), x(i), .Columns("B"))
            'Выводим в новый лист в столбец "A" - элементы коллекции,
            'в столбец "B" - суммы
            Cells(i, "A") = x(i): Cells(i, "B") = b(i)
        Next
    End With

Замените на

With Sheets("Лист1")
        For i = 1 To x.Count
            Cells(i, "A") = x(i)
            Cells(i, "B") = Application.SumIf(.Columns("A"), x(i), .Columns("B"))
            Cells(i, "C") = Application.CountIf(.Columns("A"), x(i))
        Next
    End With