Originally Posted by
xld
You culd insert a column, add the formula to identify the offenders, autofilter on that new column, copy the offenders across, and then delete the column.
All in VBA, no one would know.
You mean something like this?
Sub DUPE_NAMES()
'Add extra Column, "B" becomes "C"
Columns(2).EntireColumn.Insert
'Filter out duplicates and copy unique list to "B"
Range("C1", Range("C65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range("B1"), CriteriaRange:=Range _
("A1", Range("A65536").End(xlUp)), Unique:=True
'Deletes column C that contains the duplicate data.
Columns(3).EntireColumn.Delete
End Sub
But how would I go about copying the duplicate rows to a new workbook with a worksheet stating what name it came from?