B
bt707
I have a scipt like this but not sure how to insert it into excel to use
it, can someone tell me how to put it into excel to be able to use it.
Sub RemoveDupes()
'Add extra Column, "A" becomes "B"
Columns(1).EntireColumn.Insert
'Filter out duplicates and copy unique list to "A"
Range("B1", Range("B65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True
'Add extra Column, "B" becomes "A"
Columns(2).EntireColumn.Delete
End Sub
Thanks for any help
it, can someone tell me how to put it into excel to be able to use it.
Sub RemoveDupes()
'Add extra Column, "A" becomes "B"
Columns(1).EntireColumn.Insert
'Filter out duplicates and copy unique list to "A"
Range("B1", Range("B65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True
'Add extra Column, "B" becomes "A"
Columns(2).EntireColumn.Delete
End Sub
Thanks for any help