Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Do the Advanced Filter

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