Удалить строку, если дублируется на более чем столбец

Question

У меня есть этот код:

Workbooks("Test.xlsx").Worksheets("Sheet1").Range("A:D").RemoveDuplicates Columns:=1, Header:=xlNo

Проблема в том, что если найден хотя бы 1 дубликат, он удаляет всю строку.

Мне нужно что-то вроде этого:

If (duplicate is found on on columns A & C) then delete entire row 

Я имею в виду удалить строку, в которой столбцы A содержат дубликаты строк выше / ниже, а также столбец C содержит дубликаты строк выше / ниже.

Любая помощь будет принята! Спасибо!

Answer 1

Если есть сомнения, запишите макрос. Чтобы записать макрос, вы можете захотеть увидеть Автоматизировать задачи с помощью устройства записи макросов

Когда вы записываете макрос, сделайте это ...

1. Выберите ваш диапазон
2. Нажмите Data | Remove Duplicates.
3. В диалоговом окне удаления дубликатов нажмите кнопку Unselect all.
4. Нажмите Col Col и Col C
5. Нажмите Ok

Вы получите код, похожий на этот

YourRange.RemoveDuplicates Columns:=Array(1, 3), Header:=xlNo