基于两个列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