Sayfalar arasında eşleşen verileri silme?

[noteworthy]

sayfa 1, sayfa2 yide kapsayan bir liste. sayfa 1 deki, sayfa2 ile aynı olan verileri nasıl silerim.

 

[musty98]

bu dosyadan seç bi yöntem

 

[Evolver]

Sub aynilari_sil()
Dim a As Range
Dim bul As Range

For Each a In Range("A1", Range("A65536").End(xlUp))
Set bul = Sheets(2).Cells.Find(a, , xlValues, xlWhole)
If Not bul Is Nothing Then
a.ClearContents
End If
Next a
Range("A:A").SpecialCells(xlCellTypeBlanks).Delete
End Sub

 

[noteworthy]

Çok teşekkür ederim