Оглавление
Одним из наиболее важных действий в Excel является удаление дубликатов Сегодня я покажу, как удалить дубликаты в Excel, используя только VBA.
Скачать Практическое пособие
Удаление дубликатов в Excel с помощью VBA.xlsm3 быстрых метода использования VBA в Excel для удаления дубликатов
Здесь у нас есть набор данных с параметрами Имена, идентификаторы, Марки, и Градусы при обследовании некоторых учеников школы под названием "Детский сад "Подсолнух".
Если вы внимательно посмотрите, то обнаружите, что некоторые имена были повторены ошибочно.
Сегодня наша цель - удалить дубликаты значений с помощью Excel VBA.
1. использование VBA для удаления дубликатов из фиксированного диапазона ячеек
Прежде всего, мы постараемся удалить дубликаты имен используя фиксированный диапазон ячеек в VBA код.
Здесь нашим набором данных является диапазон B3:E15 в рабочей тетради (Включая Заголовки колонок ).
Мы будем использовать этот фиксированный диапазон ячеек в коде здесь.
Шаг 1:
➤ Откройте новый VBA окно и вставьте новый модуль (Нажмите здесь, чтобы увидеть как открыть и вставить новый модуль VBA в Excel).
➤ Вставьте этот код в модуль:
Код:
Sub Remove_Duplicates() Range("A3:E14").RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ Он производит макрос под названием Удалить_дубликаты . A3:E14 это диапазон моего набора данных, и я хочу удалить дублирующиеся строки на основе Колонка 1 Ты используешь свой.
Шаг 2:
➤ Вернитесь на свой рабочий лист и запустите этот макрос (нажмите здесь, чтобы узнать, как запустить макрос).
➤ Он удалит строки с дубликатами в столбце 1 ( Имя студента).
Читать далее: Как удалить дубликаты в Excel, но оставить один (7 методов)
2. Вставка кодов VBA для удаления дубликатов из выбранного диапазона ячеек
Теперь мы попробуем создать макрос, который может удалять дубликаты из любого выбранного диапазона ячеек на рабочем листе.
Шаг 1:
➤ Откройте новый VBA снова окно и вставьте еще один новый модуль.
➤ Вставьте этот код в модуль:
Код:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ Он производит макрос под названием Удалить_дубликаты Я хочу удалить дубликаты строк на основе Колонка 1 Ты используешь свой.
Шаг 2:
➤ Вернитесь к своему рабочему листу.
➤ Выберите набор данных и запустите этот макрос.
➤ Будет выполнено то же самое, что и выше. Удалите строки с дубликатами в столбце 1 ( Имя студента).
Читать далее: Как удалить дубликаты строк в Excel (3 способа)
Похожие чтения
- Как удалить дубликаты из столбца в Excel (3 метода)
- Excel VBA: удаление дубликатов из массива (2 примера)
- Как удалить дубликаты и сохранить первое значение в Excel (5 методов)
- Удаление дубликатов строк за исключением первого появления в Excel (7 способов)
- Как удалить оба дубликата в Excel (5 простых способов)
3. Встраивание макроса VBA для удаления дубликатов из нескольких столбцов
До сих пор мы удаляли строки, имеющие дубликаты в столбце 1 ( Имя студента ).
Но на самом деле имена двух студентов могут быть одинаковыми, это не всегда означает, что оно было добавлено ошибочно, если два имени одинаковые.
Но если идентификаторы двух студентов совпадают, значит, это один и тот же студент. Тогда строка должна быть удалена.
На этот раз мы разработаем макрос, который будет удалять строку, если имя и ID двух строк совпадают.
Шаг 1:
➤ Откройте новый VBA снова окно и вставьте еще один новый модуль.
➤ Вставьте этот код в модуль:
Код:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes End Sub ➤ Он производит макрос под названием Удалить_дубликаты Я хочу удалить дубликаты строк на основе Колонка 1 и 2 (Имя и ID) Ты используешь свой.
Шаг 2:
➤ Вернитесь к своему рабочему листу.
➤ Выберите набор данных и запустите этот макрос.
➤ На этот раз он удалит строки только в том случае, если имя и студенческий билет совпадают.
Примечание: В данном случае он не удалил Дженнифер Марло, потому что идентификаторы этих двух студентов отличаются, то есть это два разных студента.
Читать далее: Excel VBA: удаление дубликатов при сравнении нескольких столбцов (3 примера)
Заключение
Используя эти методы, вы можете удалить дубликаты из набора данных в Excel с помощью VBA. У вас возникли проблемы? Не стесняйтесь спрашивать нас.
