I am using Excel 2000.
I have a spreadsheet with 55000 e-mail addresses in column A. In order to remove duplicates I used the following macro code:
Sub delete_duplicates()
rowx = 1
Do Until Cells(rowx + 1, 1).Value = ""
If UCase(Cells(rowx, 1).Value) = UCase(Cells(rowx + 1, 1).Value) Then
Cells(rowx + 1, 1).EntireRow.Delete
Else
rowx = rowx + 1
End If
Loop
End Sub
Some of the addresses have an additional "REMOVED" added to the end of it, indicating the e-mail address is no longer valid.
How can I modify the above code to delete those rows as well.
Hans
I have a spreadsheet with 55000 e-mail addresses in column A. In order to remove duplicates I used the following macro code:
Sub delete_duplicates()
rowx = 1
Do Until Cells(rowx + 1, 1).Value = ""
If UCase(Cells(rowx, 1).Value) = UCase(Cells(rowx + 1, 1).Value) Then
Cells(rowx + 1, 1).EntireRow.Delete
Else
rowx = rowx + 1
End If
Loop
End Sub
Some of the addresses have an additional "REMOVED" added to the end of it, indicating the e-mail address is no longer valid.
How can I modify the above code to delete those rows as well.
Hans