在VBA中过滤掉重复项

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

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

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

需要一些指导。

试试这个

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

如果要在单独的列中显示过滤后的值。试一试

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