Excel’de belirli bir metnin üzerine nasıl boş satır eklenir?
 |  |  |
Bir çalışma sayfasında çalışırken, bir sütundaki belirli bir metni içeren hücrelerin üzerine boş satır eklemeyi denediniz mi? Örneğin, A sütununda bazı isimler yer alıyor ve ben, sol taraftaki ekran görüntüsünde gösterildiği gibi “Mike” ismini içeren her hücrenin hemen üstüne boş satırlar eklemek istiyorum. Excel’de bu işlemi doğrudan gerçekleştiren bir yol olmayabilir, ancak bu makalede işinizi kolaylaştıracak bazı kullanışlı püf noktalarını paylaşacağım.
VBA kodu ile belirli metnin üzerine Boş satır ekleme
Kutools for Excel ile belirli metnin üzerine Boş satır ekleme
VBA kodu ile belirli metnin üzerine Boş satır ekleme
Belirli bir metnin üzerine boş satır eklemek, tek tek elle yapıldığında çok zaman alır. İşte bu yüzden, belirli bir hücre değerinin üzerine boş satır eklemenizi sağlayacak bir VBA kodu oluşturacağım.
1. ALT + F11 tuşlarına basılı tutun; bu işlem, Microsoft Visual Basic for Applications penceresini açar.
2. Ekle > Modül seçeneğine tıklayın ve ardından aşağıdaki makroyu Modül penceresine yapıştırın.
VBA kodu: Belirli metnin üzerine Boş satır hızlıca ekleme
Sub test1()
'updateby Extendoffice
Dim i As Long
Dim xLast As Long
Dim xRng As Range
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
If (xRng.Columns.Count > 1) Then
MsgBox "the selected range must be one column", , "Kutools for Excel"
Exit Sub
End If
xLast = xRng.Rows.Count
For i = xLast To 1 Step -1
If InStr(1, xRng.Cells(i, 1).Value, "Mike") > 0 Then
Rows(xRng.Cells(i, 1).Row).Insert shift:=xlDown
End If
Next
End Sub
3. Ardından bu kodu çalıştırmak için F5 tuşuna basın; belirli metni içeren sütun verilerini seçmenizi isteyen bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Sonra Tamam düğmesine tıklayın; böylece boş satırlar “Mike” metninin üzerine eklenmiş olacaktır.
Not: Yukarıdaki kodda, Mike metin değerini, betikteki If InStr(1, xRng.Cells(i, 1).Value, "Mike") > 0Then satırında istediğiniz başka bir değere değiştirebilirsiniz.
Kutools for Excel ile belirli metnin üzerine Boş satır ekleme
Eğer Kutools for Excel yüklüyse, öncelikle belirtilen hücre değerlerini seçmek için Belirli hücreleri seçin özelliğini kullanabilir ve ardından boş satırlar eklemek üzere Excel’in Satır Ekle yardımcı programını uygulayabilirsiniz.
Kutools for Excel yüklendikten sonra,Kutools for Excelaşağıdaki adımları izleyin:
1. Kullanmak istediğiniz veri aralığını seçin.
2. Ardından Kutools > Seç > Belirli hücreleri seçin seçeneğine tıklayın. Ekran görüntüsüne bakın:
3. Açılan Belirli hücreleri seçin iletişim kutusunda, Hücre seçeneğini Seçim türünü belirtin bölümünden seçin ve ardından Türü belirtin bölümünde ihtiyacınız olan kriterleri girin. Bu örnekte, Eşittir seçeneğini Türü belirtin menüsünden seçip, seçmek istediğim ismi yazıyorum. Ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın; böylece değeri Mike olan tüm hücreler aynı anda seçilir. Ekran görüntüsüne bakın:
5. Belirli metin hücrelerini seçtikten sonra, Giriş > Ekle > Çalışma Sayfası Satırları Ekle seçeneğine tıklayın; böylece boş satırlar, seçili metnin üzerine eklenecektir. Ekran görüntülerine bakın:
 | | |
Kutools for Excel’i hemen indirin ve ücretsiz deneyin!
Demo: Kutools for Excel ile belirli metnin üzerine Boş satır ekleme
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar