Vba: як видалити повторювані значення

Щоб видалити повторювані значення у VBA, можна скористатися такими методами:

Спосіб 1: видаліть повторювані значення на основі стовпця

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

У цьому конкретному прикладі видаляються повторювані рядки в діапазоні A1:C11 на основі повторюваних значень у першому стовпці діапазону.

Аргумент Header:=xlYes вказує, що перший рядок у діапазоні є рядком заголовка, і його не слід враховувати під час перевірки дублікатів.

Спосіб 2: видаліть повторювані значення на основі кількох стовпців

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub

У цьому конкретному прикладі видаляються повторювані рядки в діапазоні A1:C11 на основі повторюваних значень у перших двох стовпцях діапазону.

У наведених нижче прикладах показано, як використовувати кожен із цих методів на практиці з таким набором даних у Excel:

Приклад 1: видаліть повторювані значення на основі стовпця

Ми можемо створити такий макрос, щоб видалити рядки, які мають повторювані значення в першому стовпці:

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Зауважте, що кожен рядок із повторюваним значенням у першому стовпці набору даних видалено.

Приклад 2: видаліть повторювані значення на основі кількох стовпців

Ми можемо створити такий макрос, щоб видалити рядки, які мають повторювані значення в перших двох стовпцях:

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Зверніть увагу, що кожен рядок, що містить повторювані значення в перших двох стовпцях набору даних, було видалено.

Примітка . Ви можете знайти повну документацію для методу VBA RemoveDuplicates тут .

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

VBA: Як додати значення в діапазон
VBA: як обчислити середнє значення діапазону
VBA: Як підрахувати унікальні значення в діапазоні