vba - 按行而不是列删除范围中的重复值

Question

我正在尝试删除范围内列中的重复值。例如，我有下表(是的，看起来像转置表):



如何删除 B1:F3 范围内的重复列？所需的输出将如下所示:



我尝试了以下代码，但它不起作用:

ActiveSheet.Range("$B$1:$F$3").RemoveDuplicates Columns:=Array(2, 3, 4, 5, 6), Header:=xlNo

我收到运行时错误:应用程序定义或对象定义错误。

Answer 1

您的范围内没有 6 列。列索引是相对的，而不是工作表中的列号。

ActiveSheet.Range("$B$1:$F$3").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), _
        Header:=xlNo

此外，从一开始使用 VBA，就避免使用 ActiveSheet。