VBA: эффективный способ создания таблицы без дубликатов

Question

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

Я реализовал два метода:

1. Я использовал цикл, чтобы проверить, если таблица вывода уже содержит значение, если не добавить его. Цикл повторялся по всему списку (несортированный)

2. «Оптимизация» 1 .: после каждой вставки нового значения таблица сортируется и цикл прерывается, когда значение найдено.

Оба метода сделали свою работу, но заняли очень много времени. Есть ли более эффективный способ сделать это?

редактировать

для лучшего понимания: Мой файл выглядит следующим образом

a 
d 
b 
c 
a 

и мой список/таблица должна выглядеть следующим образом:

a 
b 
c 
d 

Answer 1

Вот простой пример, использует словарь:

Sub test() 

    Dim a As Variant 
    Dim dict As Variant 
    Dim i As Long 

    Set dict = CreateObject("Scripting.Dictionary") 
    ReDim a(1 To 4) As Variant 

    a(1) = "a" 
    a(2) = "b" 
    a(3) = "c" 
    a(4) = "a" 
    For i = 1 To 4 
    If Not dict.exists(a(i)) Then dict.Add a(i), i 
    Next i 

    MsgBox "array size = " & UBound(a, 1) & " and dict size = " & dict.Count 'respectively 4 and 3 

End Sub 

Answer 2

Вы строго хотите использовать VBA? Ну, я предположил, что эту идею можно записать в макрос ...

Я бы выделил столбец дублирующих значений, затем сделайте Фильтр> Расширенный фильтр> Скопировать в другое место> [x] Только уникальные значения.

Затем сортировать полученную таблицу уникальных значений, которые она дает вам.

Answer 3

Если вы используете Excel 2010, есть встроенные функции для удаления дубликатов.

Я бы импортировал все данные из ваших файлов, а затем удалил дубликаты.

Из пользовательского интерфейса, выберите данные, а затем нажмите на вкладку данных и Удалить дубликаты. При появлении запроса выберите нужные параметры и нажмите «ОК».

Та же функциональность доступна от VBA.

Sub Remove_Duplicates() 
    ActiveSheet.Range("$A$1:$B$500").RemoveDuplicates _ 
    Columns:=Array(1, 2), Header:=xlYes 
End Sub 

В Excel 2003 и ранее этот VBA мог использоваться. Он использует встроенную расширенную функциональность фильтра.

Sub Remove_Duplicates_2003() 

    Range("A1:B500").AdvancedFilter Action:=xlFilterCopy, _ 
    CopyToRange:=Range("C1"), Unique:=True 

    Columns("A:B").Delete Shift:=xlToLeft 

End Sub