Excel'de etkin hücrenin veya belirli bir metnin üstündeki satırları nasıl silerim?

Eğer çok sayıda satırdan oluşan büyük bir çalışma sayfasınız varsa ve sadece etkin hücrenin veya belirli bir metnin üstündeki tüm satırları silmek istiyorsanız, bunu nasıl yapabilirsiniz? Satırları seçerek ve ardından sağ tıklayıp içerik menüsünden Sil seçeneğini manuel olarak seçerek silebilirsiniz. Ancak burada, hızlıca üstteki satırları silmek için VBA kodlarım var. Eğer ilgileniyorsanız, lütfen aşağıdaki ayrıntılara bakın.

VBA kodları ile üstteki satırları silme

VBA kodları ile üstteki satırları silme

Burada size iki VBA kodu tanıtacağım: biri etkin (seçili) hücrenin üstündeki satırları siler, diğeri ise belirli bir metnin üstündeki satırları kaldırır.

1. Üstündeki satırları silmek istediğiniz bir hücreyi seçin ve Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül betiğine yapıştırın.

VBA: Etkin hücrenin üstündeki satırları silme

Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub

3. Tuşa basın F5 tuşuna bastıktan sonra, etkin hücrenin üstündeki satırlar kaldırılır. Ekran görüntüsüne bakın:

Belirli bir metnin üstündeki satırları silmek istiyorsanız, aşağıdaki VBA'yı kullanabilirsiniz.

VBA: Belirli bir metnin üstündeki satırları silme

Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
    Dim fRg As Range
    
    Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
    
    If Not fRg Is Nothing Then
        If fRg.Row <> 1 Then
            Range("A1", fRg.Offset(-1)).EntireRow.Delete
        Else
            MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
        End If
    Else
       MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
    End If
    
End Sub

Not:

1. Kodda, 'Total Group' bulmak istediğiniz metindir, ihtiyacınıza göre değiştirebilirsiniz.

2. Eğer aradığınız metin zaten ilk satırda ise, sizi uyarmak için bir iletişim kutusu açılacaktır.

3. Eğer belirtilen metin sayfada bulunamazsa, aşağıda gösterildiği gibi bir iletişim kutusu çıkarak sizi bilgilendirecektir.