Excel VBA复制唯一值重复第1个值

Question

我有这个excel VBA代码

Sub Module()

Range("A1:A10").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("D1"), Unique:=True

End Sub

我希望它从A列中获取所有唯一值并将它们转储到D列

中

但是，D1中的值是重复的。

为什么会这样，我该如何解决？

Answer 1

另一种方法，它不需要标题。

Sub Module()

Application.ScreenUpdating = False

With Range("A1:A10")
    .Copy .Offset(, 3)
    .Offset(, 3).RemoveDuplicates Columns:=1, Header:=xlNo
End With

Application.ScreenUpdating = True

End Sub

Answer 2

在单元格A1上方插入另一个单元格。写＆＃34;标题＆＃34;或此框中的任何其他文字。将范围更改为A1：A11。这应该可以解决你的问题。