过滤掉VBA中的重复项

Question

我想过滤掉VBA中的重复项。我知道有一种叫做RemoveDuplicates的方法

Columns(ColumnNumber).RemoveDuplicates Columns:=Array(1) 

此方法删除重复项，而我只想过滤掉重复项。我该怎么做？

需要一些指导。

Answer 1

试试这个。

 Columns("A:A").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Columns("A:A"), Unique:=True

如果您希望Filtered值位于单独的列中。尝试

  Columns("A:A").Select
  Columns("A:A").AdvancedFilter Action:=xlFilterCopy,    CriteriaRange:=Columns( _
            "A:A"), CopyToRange:=Range("C1"), Unique:=True