Match 2 columns of data and delete duplicates
Closed
Daniel Mc.
-
Nov 15, 2010 at 02:16 PM
venkat1926 Posts 1864 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Nov 15, 2010 at 09:29 PM
venkat1926 Posts 1864 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Nov 15, 2010 at 09:29 PM
Related:
- Match 2 columns of data and delete duplicates
- Plants vs zombies 2 pc download - Download - Strategy
- Transfer data from one excel worksheet to another automatically - Guide
- Digital data transmission - Guide
- Five nights in anime 2 - Download - Adult games
- How to delete whatsapp contact not in address book - Guide
1 reply
venkat1926
Posts
1864
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
810
Nov 15, 2010 at 09:29 PM
Nov 15, 2010 at 09:29 PM
BEFORE DOING THIS SAVE YOUR FILE SAFELY SOME WHERE SO THAT DATA CAN BE RETRIEVED IF THERE IS A MES UP .
2. row no1. in both sheet are having column headings.
I am sure you know where to park the macro. try this macro
the macro is
2. row no1. in both sheet are having column headings.
I am sure you know where to park the macro. try this macro
the macro is
Sub test() Dim r2 As Range, j As Long, k As Long, cfind As Range, x With Worksheets("sheet1") j = .Range("M2").End(xlDown).Row For k = j To 2 Step -1 x = .Cells(k, "M").Value With Worksheets("sheet2") Set r2 = Range(.Range("A2"), .Range("A2").End(xlDown)) Set cfind = r2.Cells.Find(what:=x, lookat:=xlWhole) If Not cfind Is Nothing Then GoTo line1 Else GoTo nextk End If End With GoTo nextk line1: .Cells(k, "m").EntireRow.Delete nextk: Next k End With End Sub