Macro for Finding Duplicate Data Entries

[Rod]

Word 2007

Hello Gurus:

I have two listings of e-mail addresses. List A has approximately 33,000
entries and List B has approximately 2,000 entries.

If possible, I would like to select each individual email entry in List A
and compare it to the entries in List B in search of a duplicate entry. If
the e-mail entry from List A is found in list B, I would like to delete the
email entry from List B.

If the e-mail entry is NOT found in List B, I would like to proceed to the
subsequent e-mail entry in List A and begin the process all over again.

Any assistance in this regard would be very much appreciated.

Thanking you in advance, I remain…

Very truly yours – Rod

 

[macropod]

Hi Rod,

This is quite easy to do in Excel, without the need for a macro -simply put both lists into a single column (eg Column A) and insert
the following formula into column B:
=COUNTIF(A$1:A1,A1)
and copy down as far as needed. Then copy & paste column B as values and sort the data by column B. All the duplicates will then be
grouped together and the data will be otherwise in the same order as you originally had it.

 

[Graham Mayor]

Assuming that the lists in question are simple lists with one entry per
paragraph in each document, then the following macro will remove from the
short list any item that appears in the long list. Run it on *copies* of the
document lists. Change the document paths as required.

Dim LongList As Document
Dim ShortList As Document
Set LongList = Documents.Open("D:\My Documents\Test\Temp\List1.docx")
Set ShortList = Documents.Open("D:\My Documents\Test\Temp\List2.docx")
For i = ShortList.Paragraphs.Count To 1 Step -1
With LongList.Range.Find
.Text = ShortList.Paragraphs(i).Range.Text
Do While .Execute(Forward:=True) = True
ShortList.Paragraphs(i).Range.Delete
Loop
End With
Next i

It could take a while to run
http://www.gmayor.com/installing_macro.htm