Удаление дубликатов с помощью VBA — Excel 2003

Мне было интересно, знает ли кто-нибудь о каком-либо коде VBA, который избавился бы от дубликатов. Например, в столбце D я хочу сохранить первый экземпляр идентификатора и удалить дубликаты.

введите здесь описание изображения

С уважением

Грег


excel vba excel-2003
person Greg_C    schedule 18.04.2012    source источник
comment
Вы можете вставить изображение таблицы, как она блокируется?   -  person Moosli    schedule 18.04.2012
comment
Если вы вставите 4 пробела в начале строки, вся строка будет отображаться шрифтом фиксированного размера. Затем вы можете разнести строку, чтобы создать столбцы. Я предполагаю, что приведенная выше строка предназначена для изображения до. Пожалуйста, предоставьте изображение после, чтобы люди могли понять, что вы ищете.   -  person Tony Dallimore    schedule 18.04.2012

Ответы (1)


arrow_upward
4
arrow_downward

Хорошо, это должно сработать для вас. Эта подпрограмма удаляет все двойные идентификаторы в столбце C.

Option Explicit


Sub DeletDuplicate()
    Dim x As Long
    Dim LastRow As Long
    LastRow = Range("C65536").End(xlUp).Row
    For x = LastRow To 1 Step -1
        If Application.WorksheetFunction.CountIf(Range("C1:C" & x), Range("C" & x).Text) > 1 Then
            Range("C" & x).EntireRow.Delete
        End If
    Next x
End Sub
person Moosli    schedule 18.04.2012