Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Do the Advanced Filter
Sub UniqueCustomerRedux()
    Range("J1").Value = Range("D1").Value
    Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, CopyToRange:=Range("J1"), Unique:=True
End Sub