2012-04-18 2 views
1

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

enter image description here

С уважением

Грег

+0

вы можете вставить изображение в Tabel, как он запирает как? – Moosli

+0

Если вы вставляете 4 пробела в начале строки, вся строка будет отображаться шрифтом фиксированного размера. Затем вы можете выделить строку для создания столбцов. Я предполагаю, что строка, указанная выше, должна быть перед изображением. Пожалуйста, поставьте изображение после, чтобы люди могли понять, что вы ищете. –

ответ

4

Хорошо, что должно работать для вас. что рутинные дельцы все двойные опознали в колонке 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 
Смежные вопросы