delete duplicated row help

[Ks1102]

hi, all

How do I have delete the row if it are duplicated with sheet2 ??
Example
Sheet1. Range A2 and B2 and C2 value if same as sheet2 A2 & B2 & C2 then the rows deleted else … to down.
The spreadsheet sheet2 are too many data contents..

Can u help me create a code for me to clean sheet1 duplicated?


your help i highly appreciate

 

[kevatarvind]

if condition match then you want to delete both sheet row or only one sheet ?

 

[Ks1102]

if condition match then you want to delete both sheet row or only one sheet ?

thanks the advised, but i don't know what's the condition match ??
does vba/macros can't done it ?

 

[kevatarvind]

try below code this code will check sheet1 A2 B2 And C2 Value To Sheet2 A2 , B2 And C2 If All Three Value are matched then it will delete that entire row from Sheet1 if you want something else then pls let me know

Sub Test()
Dim lr As Long
Sheets("Sheet1").Select
lr = Range("A" & Rows.Count).End(xlUp).Row
For i = lr To 2 Step -1
If Cells(i, 1) = Sheets("Sheet2").Cells(i, 1) And Cells(i, 2) = Sheets("Sheet2") _
.Cells(i, 2) And Cells(i, 3) = Sheets("Sheet2").Cells(i, 3) Then Cells(i, 1).EntireRow.Delete
Next i
End Sub

 

[Ks1102]

try below code this code will check sheet1 A2 B2 And C2 Value To Sheet2 A2 , B2 And C2 If All Three Value are matched then it will delete that entire row from Sheet1 if you want something else then pls let me know

Sub Test()
Dim lr As Long
Sheets("Sheet1").Select
lr = Range("A" & Rows.Count).End(xlUp).Row
For i = lr To 2 Step -1
If Cells(i, 1) = Sheets("Sheet2").Cells(i, 1) And Cells(i, 2) = Sheets("Sheet2") _
.Cells(i, 2) And Cells(i, 3) = Sheets("Sheet2").Cells(i, 3) Then Cells(i, 1).EntireRow.Delete
Next i
End Sub

Thanks very much

 

[kevatarvind]

Your Welcome