Подсчет количества дубликатов

@rtv206 · Регистрация: 24.06.2019

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

Доброго времени суток уважаемые форумчане!
Прошу Вашей помощи так, как с макросами не очень сильно дружу(
Необходимо проверить данные на дубликаты и вывести в ячейку количество дубликатов.
Дубликаты определяются условным форматированием.
Количество строк и столбцов может быть разное.

@pashulka · 25.06.2019, 09:30

Visual Basic

Private Sub Test()
    Dim d As Object, v, i&
    Set d = CreateObject("Scripting.Dictionary")
    For Each v In ActiveSheet.UsedRange.Value
       If Not IsEmpty(v) Then d(v) = d(v) + 1
    Next
    For Each v In d.Items
        If v > 1 Then i = i + v
    Next
    [B1] = i 'MsgBox i
End Sub

В принципе, аналогичный результат можно получить и с помощью формулы, типа

Код

=СУММПРОИЗВ(Ч(СЧЁТЕСЛИ(E1:G45;E1:G45)>1))

@rtv206 · 30.06.2019, 17:08 **[ТС]**

pashulka, Спасибо огромное за решение.
Подскажите только как прописать в макросе чтобы проверка была в столбцах E:AG?

@pashulka · 30.06.2019, 17:42

Например, так :

Visual Basic

1	For Each v In Intersect([E:AG], ActiveSheet.UsedRange).Value

@rtv206 · 05.07.2019, 20:00 **[ТС]**

pashulka, Спасибо

@rtv206 · 08.12.2019, 18:30 **[ТС]**

pashulka, Долго идет подсчет дубликатов.
200 тыс. значений около 5 минут.
Не подскажете как можно ускорить процесс?

@pashulka · 08.12.2019, 19:11

Не вижу файла с данными, кодом и подсчётом времени выполнения макроса.

@bmv98rus · 09.12.2019, 09:19

rtv206, Словарь нужно заменить на коллекцию , ответ дан на другом форуме. Те 100к за 2 с небольшим секунды, в сравнении с почти 4мя минутами.

@rtv206 · 12.12.2019, 21:32 **[ТС]**

решение проблемы здесь http://www.excelworld.ru/forum/10-41782-2

@rtv206 · 29.01.2020, 22:41 **[ТС]**

pashulka, Вот файл.
Возможно как-то ускорить процесс подсчета дубликатов?

@pashulka · 30.01.2020, 19:58

rtv206, Конкретно в этом файле ускорить можно. Но если в реальности строк 200 тыс., то нет смысла оптимизировать, т.к. тормозит здесь d(v) = d(v) + 1

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

@rtv206 0 / 0 / 0 Регистрация: 24.06.2019 Сообщений: 8
	30.06.2019, 17:08 [ТС]	3
	pashulka, Спасибо огромное за решение. Подскажите только как прописать в макросе чтобы проверка была в столбцах E:AG? 0

@rtv206 0 / 0 / 0 Регистрация: 24.06.2019 Сообщений: 8
	05.07.2019, 20:00 [ТС]	5
	pashulka, Спасибо 0

@rtv206 0 / 0 / 0 Регистрация: 24.06.2019 Сообщений: 8
	08.12.2019, 18:30 [ТС]	6
	pashulka, Долго идет подсчет дубликатов. 200 тыс. значений около 5 минут. Не подскажете как можно ускорить процесс? 0

@pashulka 4134 / 2238 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	08.12.2019, 19:11	7
	Не вижу файла с данными, кодом и подсчётом времени выполнения макроса. 0

@bmv98rus 110 / 75 / 33 Регистрация: 20.10.2019 Сообщений: 198
	09.12.2019, 09:19	8
	rtv206, Словарь нужно заменить на коллекцию , ответ дан на другом форуме. Те 100к за 2 с небольшим секунды, в сравнении с почти 4мя минутами. 0

@rtv206 0 / 0 / 0 Регистрация: 24.06.2019 Сообщений: 8
	12.12.2019, 21:32 [ТС]	9
	решение проблемы здесь http://www.excelworld.ru/forum/10-41782-2 0

@pashulka 4134 / 2238 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	30.01.2020, 19:58	11
	rtv206, Конкретно в этом файле ускорить можно. Но если в реальности строк 200 тыс., то нет смысла оптимизировать, т.к. тормозит здесь d(v) = d(v) + 1 В общем, не глядя верю предыдущему оратору, что по той ссылке есть решение Вашего вопроса. 0