Самый простой способ найти и удалить дубликаты? - PullRequest
0 голосов
/ 11 мая 2011

У меня есть две колонки, заполненные данными в электронной таблице Excel:

Column 1:
A
B
C
D

Column 2:
C
D
E
F
G

Desired Data: A,B,C,D,E,F,G (not A,B,C,D,C,D,E,F,G)

Я хочу объединить два столбца и удалить все дубликаты. Я пришел из C # слова, поэтому мое понимание VBA ограничено. Я знаю, что мог бы создать массив с измерением размерности (столбец1) + размерность (столбец2), а затем удалить дубликаты (встроен ли один?) Или что-то в этом роде.

Любое руководство будет оценено, спасибо!

1 Ответ

2 голосов
/ 11 мая 2011

Используйте следующую процедуру для выполнения обработки ... и просто вызовите ее, как и для любой другой функции или подпрограммы.

Sub RemoveDupes()

    'Add extra Column, "A" becomes "B"
    Columns(1).EntireColumn.Insert

    'Filter out duplicates and copy unique list to "A"
    Range("B1", Range("B65536").End(xlUp)).AdvancedFilter _
        Action:=xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True

    'Add extra Column, "B" becomes "A"
    Columns(2).EntireColumn.Delete

End Sub

Тогда просто присоединяйтесь и сортируйте результаты из каждого столбца :)

...