Сравнить и удалить дублирующиеся строки на основе двух столбцов VBA

Question

В настоящее время у меня есть код, где мои дубликаты будут удалены на основе одного столбца. Я хотел бы объединить столбец 1 и столбец 2 в виде строк (думаю, это будет самый простой способ) и удалить дубликаты. В настоящее время у меня есть код:

Range("A1:A6").RemoveDuplicates Columns:=1, Header:=xlNo

Я хотел бы иметь его, чтобы он сравнивал столбец 1 и столбец 2 ВМЕСТЕ.

Например, в столбце 1 есть:

(A1) Apple
(A2) Pear
(A3) Pear
(A4) Apple

В столбце 2 есть:

(B1) Red
(B2) Blue
(B3) Blue
(B4) Orange

В этом случае только строка 2 и строка 3 являются дубликатами. Не строка 1, а строка 4, потому что вы будете сравнивать два столбца вместо одного.

Спасибо! Надеюсь, это имело смысл.

Answer 1

Включите весь диапазон и используйте Array, чтобы включить оба столбца:

Range("A1:B6").RemoveDuplicates Columns:=Array(1,2), Header:=xlNo