Как красиво определить наличие дубликатов в столбце Листа Excel?

13.01.2009, 01:08. **Показов** 4654. **Ответов** 3

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

См. сабж.
По-моему, эта тема где-то уже обсуждалась, но что-то не нашёл я её.
'Красиво' - это без тупого перебора во вложенных циклах и т.п.

Спасибо.

13.01.2009, 14:26

Пока придумал следующее:
Столбец с данными, который мне надо проверить на наличие дубликатов, сортирую и затем делаю по нему Итоги, указывая в качестве операции 'Количество значений'. Там, где оно будет больше единицы - имеются дубликаты.
Чтобы не портить исходный Лист, нужный мне столбец копирую в отдельный лист Книги, который до этого момента был скрытым. И именно на этом вспомогательном Листе делаю все сортировки и Итоги. После выполнения всех операций этот лист чищу и опять прячу. На всё время выполнения этих действий запрещаю обновление экрана, чтобы не мельтешило перед глазами.
Не знаю, насколько это красиво, но работает оно быстрее всяких переборов, да и места вроде немного занимает:

Visual Basic

    mem = ActiveSheet.Name
    Application.Cursor = xlWait
    Application.ScreenUpdating = False
    Range('B:B').Copy
    Worksheets('Лист1').Visible = True
    Worksheets('Лист1').Select
    Range('B1').PasteSpecial Paste:=xlPasteValues
    Range('B1').Font.Bold = True
    Range('B1:B' + Trim(Str(numA - 1))).Select
    Selection.Sort Key1:=Range('B1'), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Selection.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(1), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    rw = Worksheets('Лист1').UsedRange.Rows.Count
    For i = 2 To rw
        If Not IsEmpty(Cells(i, 2)) And i <> rw Then
            tot = Cells(i, 3)  '  <<< значит, правее стоит Итог
            If tot > 1 Then
                Debug.Print 'Значение ' + Cells(i - 1, 3) + ' встречается' + Str(tot) + ' раз(а)'
            End If
        End If
    Next i
    Rows('1:' + Trim(Str(rw))).Select
    Selection.Delete Shift:=xlUp
    Range('A1').Select
    Worksheets('Лист1').Visible = False
    Worksheets(mem).Select
    Application.ScreenUpdating = True
    Application.Cursor = xlDefault

В этом коде предполагается, что проверяемые данные находятся в столбце 'B' активного Листа. Обнаруженные дубликаты никак не обрабатываются, а просто выводятся через Debug.Print.

Если у кого есть ещё какие идеи получше - будет интересно узнать.

@Korolana · 13.01.2009, 20:12

Range(<your Column>).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range(<the same your Column>), Unique:=True

13.01.2009, 22:47

2Korolana:
Снимаю шляпу...

Как и всегда, ваш ответ в этом форуме отличается лаконичностью и бьёт в десятку!

Вашим методом нельзя создать список тех значений в колонке, у которых
обнаружены дубликаты, но зато факт НАЛИЧИЯ таких дубликатов отлавливается, в прямом смысле, в одну строчку. Остаётся сравнить число рядов до и после применения автофильтра - и всех дел!

В конце концов, на этом можно экономить время: если ваш метод показывает, что дубликатов НЕТ, то БЫСТРО переходим к обработке данных, уникальность которых теперь уже гарантирована. Если же дубликаты есть (что случается у меня гораздо реже), то можно выполнить мой код или ещё что-нибудь в этом роде...

Спасибо!

Comanche
		1
	Как красиво определить наличие дубликатов в столбце Листа Excel? 13.01.2009, 01:08. Показов 4654. Ответов 3 Метки нет (Все метки) См. сабж. По-моему, эта тема где-то уже обсуждалась, но что-то не нашёл я её. 'Красиво' - это без тупого перебора во вложенных циклах и т.п. Спасибо.

@Korolana 1 / 1 / 0 Регистрация: 27.08.2008 Сообщений: 154
	13.01.2009, 20:12	3
	Range(<your Column>).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range(<the same your Column>), Unique:=True 0

Comanche
	13.01.2009, 22:47	4
	2Korolana: Снимаю шляпу... Как и всегда, ваш ответ в этом форуме отличается лаконичностью и бьёт в десятку! Вашим методом нельзя создать список тех значений в колонке, у которых обнаружены дубликаты, но зато факт НАЛИЧИЯ таких дубликатов отлавливается, в прямом смысле, в одну строчку. Остаётся сравнить число рядов до и после применения автофильтра - и всех дел! В конце концов, на этом можно экономить время: если ваш метод показывает, что дубликатов НЕТ, то БЫСТРО переходим к обработке данных, уникальность которых теперь уже гарантирована. Если же дубликаты есть (что случается у меня гораздо реже), то можно выполнить мой код или ещё что-нибудь в этом роде... Спасибо!