Seçimlerde A Sütunu İle Kesişen Satırları Sil - Microsoft Excel

Intersect metodunu kullanarak silme işlemi yapıyoruz. Eğer yaptığımız seçim veya seçimlerde A sütunundaki hücre veya hücreler de seçilmişse o seçili satırlar komple siliniyor.

Option Explicit

Sub ASutunundaSeciliSatirlariSil()
    Intersect(Selection, Range("A:A"), _
        ActiveSheet.UsedRange).EntireRow.Delete
End Sub