Eliminating duplication in integration

  • Thread starter Thread starter Tim Johnson
  • Start date Start date
T

Tim Johnson

I'm trying to figure out how to integrate 2 spreadsheets
& eliminate all duplicated information. Any ideas?
 
Tim
Copy and paste the data into one file then use the following:
'This macro is written for data in Column A starting in Row 1. Amend this
as needed.
Sub DupeClear()
Dim r As Single
Dim c As Single
r = 1
c = 1
Do Until Cells(r, c).Value = ""
x = Cells(r, c).Value
If x = y Then
Rows(r).Select
Selection.Delete Shift:=xlUp
Else
r = r + 1
End If
y = x
Loop
End Sub

'Another way without VBA
'sort the data
'add a column to test for duplicates by a formula, e.g. in B2 put
'=IF(A2=A1,"Y","")
'drag this cell down as far as your data goes.
'use Autofilter on column B and select the Y's
'delete the rows showing
'Clear AutoFilter

HTH Otto
 
Back
Top