I need help with deleting duplicate, and the original cell, ro
Glad to help.
"Jimv" wrote:
Thank you!!! It works.
Jim
"JMB" wrote:
Select the column containing your data, then try running this macro. It will
search each item for "unsubscribe" (I am assuming the ones you want deleted
will contain this word) and delete the entire row(s).
If you want to change it to a more generic search (delete all instances of
every item that is duplicated) then change
If InStr(1, x.Value, "unsubscribe", 1) 0 Then
To:
If Application.CountIf(Selection, x.Value) 1 Then
Sub DeleteUnsubscribers()
Dim x As Range
Dim Dupes As Range
For Each x In Selection
If InStr(1, x.Value, "unsubscribe", 1) 0 Then
If Dupes Is Nothing Then
Set Dupes = x
Else: Set Dupes = Union(Dupes, x)
End If
End If
Next x
If Not Dupes Is Nothing Then _
Dupes.EntireRow.Delete
End Sub
"Jimv" wrote:
I have a list of email addresses, I need to purge out the "unsubscribes". I
can find all types of macros that will delete the duplicate entry, but
nothing that will also purge the original, or unique counterpart of the
duplicate.
Can anyone help with this.
thanks
Jim
|