View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Eduardo Eduardo is offline
external usenet poster
 
Posts: 2,276
Default joining worksheets

Hi Jessica,
Put both list together and run the macro as follow

Dim LastRow2 As Long
Dim TestColumn As String
Dim RowNdx As Long
Dim TopRow As Long
Dim WS As Worksheet
Dim DeleteThese As Range



Set WS = ActiveSheet
TestColumn = "B" '<<<< column to test for duplicates
TopRow = 6 '<<<< top-most row of data to test.

With WS
LastRow2 = .Cells(.Rows.Count, TestColumn).End(xlUp).Row
For RowNdx = LastRow2 To TopRow Step -1
If Application.CountIf(.Range(.Cells(TopRow, TestColumn), _
.Cells(RowNdx, TestColumn)), _
.Cells(RowNdx, TestColumn)) 1 Then
If DeleteThese Is Nothing Then
Set DeleteThese = .Rows(RowNdx)
Else
Set DeleteThese = _
Application.Union(DeleteThese, .Rows(RowNdx))
End If
End If
Next RowNdx
End With
If Not DeleteThese Is Nothing Then
DeleteThese.Delete
End If

End Sub


"Jessica" wrote:

I see all these very complicated explanations and procedures for combining
worksheets, but I still can't figure out what to do!
I exported 2 separate contact lists from Outlook into Excel. I want to
combine them and eliminate duplicte entries so that I have one master list to
work from, to update, and then to email to people in my organization to get
more/updated contact information.
I pasted each contact list onto a separate sheet in one worksheet. Please
help from here.