Подсчет количества повторений в столбце

@Chikoy001 · Регистрация: 23.11.2014

Author24 — интернет-сервис помощи студентам

Имеется столбец: Сверху название улицы, а снизу идут улицы, некоторые из которых повторяются. Нужно написать макрос подсчета количества повторений улиц, если 1 раз то 1 если 2 раза то 2 и тд... Результат должен быть в виде таблицы на том же листе следующего вида: Название улицы Кол-во

Пушкина 1
Лермонтова 3
Прошу помочь с эти заданием, уверен что знатоку это раз плюнуть но для меня это неизведанный лес, тем более язык Basic.

@kasan · 16.06.2015, 16:19

Нужен ли макрос?
Копируете уникальные названия улиц в отдельную колонку (Advanced Filter - Unique records only)
Потом функцией =countif() считаете.

@kalbasiatka · 16.06.2015, 16:37

Visual Basic

Sub uuu()
    Dim a()
    Dim i&
'---------
    a = Range("A2", Cells(Rows.Count, 1).End(xlUp)).Value
    With CreateObject("Scripting.Dictionary")
        For i = 2 To UBound(a)
            .Item(a(i, 1)) = .Item(a(i, 1)) + 1
        Next
        Cells(2, 3).Resize(.Count, 2) = Application.Transpose(Array(.Keys, .Items))
    End With
End Sub

Fairuza · 16.06.2015, 18:40

СЧЕТЕСЛИ(), СУММПРОИЗВ()

@Chikoy001 1 / 1 / 0 Регистрация: 23.11.2014 Сообщений: 18
		1
	Подсчет количества повторений в столбце 16.06.2015, 16:00. Показов 5019. Ответов 3 Метки нет (Все метки) Имеется столбец: Сверху название улицы, а снизу идут улицы, некоторые из которых повторяются. Нужно написать макрос подсчета количества повторений улиц, если 1 раз то 1 если 2 раза то 2 и тд... Результат должен быть в виде таблицы на том же листе следующего вида: Название улицы Кол-во Пушкина 1 Лермонтова 3 Прошу помочь с эти заданием, уверен что знатоку это раз плюнуть но для меня это неизведанный лес, тем более язык Basic. 0

@kasan Чорумфанин 346 / 346 / 320 Регистрация: 06.03.2014 Сообщений: 899
	16.06.2015, 16:19	2
	Нужен ли макрос? Копируете уникальные названия улиц в отдельную колонку (Advanced Filter - Unique records only) Потом функцией =countif() считаете. 0

Fairuza 6006 / 3200 / 717 Регистрация: 23.11.2010 Сообщений: 10,692
	16.06.2015, 18:40	4
	СЧЕТЕСЛИ(), СУММПРОИЗВ() 0