A ve B sütunundaki veri aynı ise satır silme

[steppe]

Makro ile A sütunundaki veri ile B sütunundaki veriler aynı ise o satırları ve B sütununda veri olmayan satırları silmek istiyorum.Detaylı açıklama örnek dosyada mevcut.
Yardımlarınız için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub SİL()
    Dim X As Long, Son As Long
    
    Son = Cells(Rows.Count, 1).End(3).Row
    
    For X = Son To 1 Step -1
        If Cells(X, 1) = Cells(X, 2) Or Cells(X, 2) = "" Then
            Rows(X).Delete xlUp
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[steppe]

Korhan Ayhan Hocam,
Yardımlarınız için çok teşekkür ederim.