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.
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin