Do the Advanced Filter : AdvancedFilter « Excel « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Excel
  3. AdvancedFilter

Do the Advanced Filter

 
Sub UniqueCustomerRedux()
    Range("J1").Value = Range("D1").Value
    Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, CopyToRange:=Range("J1"), Unique:=True
End Sub








Related examples in the same category

1.Advanced Filter Demo
2.AdvancedFilter Action:=xlFilterCopy