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

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

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

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

@pashulka · 25.06.2019, 09:30

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
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

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

Code
1
=СУММПРОИЗВ(Ч(СЧЁТЕСЛИ(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

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

Новые блоги и статьи Все статьи Все блоги /
Оптимизация производительности Express.js бэкенда Reangularity 23.05.2025 Express. js заслуженно остаётся одним из самых популярных инструментов для создания бэкенда, но даже он не застрахован от проблем с производительностью. Многие разработчики сталкиваются с ситуацией,. . .	Продвинутая обработка данных с LINQ в C# stackOverflow 23.05.2025 LINQ (Language Integrated Query) — это фундаментальное изменение парадигмы работы с данными в C#. Простые запросы Where и Select знакомы любому разработчику, но настоящая мощь LINQ раскрывается в. . .	Инфраструктура PKI и сертификатов безопасности Mr. Docker 23.05.2025 PKI (Public Key Infrastructure) — это невидимый фундамент цифрового доверия, без которого современный интернет просто рассыпался бы как карточный домик. За этой аббревиатурой скрывается целый. . .	Аутентификация OAuth в Python py-thonny 22.05.2025 OAuth (Open Authorization) — это целый стандарт для делегированного доступа. Звучит занудно? Давайте проще: OAuth позволяет приложениям получать доступ к информации пользователя на сторонних сервисах. . .	Хеширование и соль паролей в веб-приложениях C# stackOverflow 22.05.2025 Когда-то в начале своей карьеры я тоже грешил простейшими подходами к хранению паролей – MD5-хеширование казалось верхом защиты. Но технологии не стоят на месте, вычислительные мощьности растут, и. . .
Генераторы Python для эффективной обработки данных AI_Generated 21.05.2025 В Python существует инструмент настолько мощный и в то же время недооценённый, что я часто сравниваю его с тайным оружием в арсенале программиста. Речь идёт о генераторах — одной из самых элегантных. . .	Чем заменить Swagger в .NET WebAPI stackOverflow 21.05.2025 Если вы создавали Web API на . NET в последние несколько лет, то наверняка сталкивались с зелёным интерфейсом Swagger UI. Этот инструмент стал практически стандартом для документирования и. . .	Использование Linq2Db в проектах C# .NET UnmanagedCoder 21.05.2025 Среди множества претендентов на корону "идеального ORM" особое место занимает Linq2Db — микро-ORM, балансирующий между мощью полноценных инструментов и легковесностью ручного написания SQL. Что. . .	Реализация Domain-Driven Design с Java Javaican 20.05.2025 DDD — это настоящий спасательный круг для проектов со сложной бизнес-логикой. Подход, предложенный Эриком Эвансом, позволяет создавать элегантные решения, которые точно отражают реальную предметную. . .	Возможности и нововведения C# 14 stackOverflow 20.05.2025 Выход версии C# 14, который ожидается вместе с . NET 10, приносит ряд интересных нововведений, действительно упрощающих жизнь разработчиков. Вы уже хотите опробовать эти новшества? Не проблема! Просто. . .

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

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

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

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

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

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

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

Опции темы