Excel'de belirli bir metnin üzerine boş satır nasıl eklenir?

Bir çalışma sayfası üzerinde çalışırken, hiç bir sütundaki belirli bir metnin üzerine boş satır eklemeyi denediniz mi? Örneğin, A sütununda bazı isimler var, şimdi, gösterilen sol ekran görüntüsü olarak "Mike" adını içeren hücrelerin üzerine boş satırlar eklemek istiyorum, belki, bu görevi Excel'de çözmenin doğrudan bir yolu yok . Bu yazıda, Excel'de bu işin üstesinden gelmek için bazı iyi püf noktalarından bahsedeceğim.

VBA kodu ile belirli metnin üzerine boş satır ekleyin

Kutools for Excel ile belirli metnin üzerine boş satır ekleyin

VBA kodu ile belirli metnin üzerine boş satır ekleyin

Belirli bir metnin üzerine tek tek boş satır eklemek çok zaman kaybedecektir, burada, boş satırı belirli hücre değerinin üstüne bir kerede eklemeniz için bir VBA kodu oluşturacağım.

1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve ardından aşağıdaki makroyu modül Pencere.

VBA kodu: Hızlı bir şekilde belirli bir metnin üzerine boş satır ekleyin

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve yukarıya satır eklemek istediğiniz belirli metni içeren sütun verilerini seçmenizi hatırlatmak için bir iletişim kutusu açılır, ekran görüntüsüne bakın:

4. Ve sonra tıklayın OK düğmesi, boş satırlar belirli "Mike" metninin üstüne eklenmiştir.

not: Yukarıdaki kodda "metin değerini değiştirebilirsiniz"mikrofon"Komut dosyasından istediğiniz diğer tüm değerlere InStr (1, xRng.Cells (i, 1) .Value, "Mike")> 0 ise Sonra.

Kutools for Excel ile belirli metnin üzerine boş satır ekleyin

Eğer varsa Kutools for Excel, Onun ile Belirli Hücreleri Seçin özelliği, önce belirtilen hücre değerlerini seçebilir ve ardından boş satırları bir kerede eklemek için Excel'in Sayfa Satırları Ekle yardımcı programını uygulayabilirsiniz.

Kurduktan sonra Kutools for Excellütfen aşağıdaki işlemleri yapın:

1. Kullanmak istediğiniz veri aralığını seçin.

2. Sonra tıklayın Kutools > seçmek > Belirli Hücreleri Seçin, ekran görüntüsüne bakın:

3. In Belirli Hücreleri Seçin iletişim kutusunu seçin Hücre altında Seçim türüve ardından ihtiyacınız olan kriterleri belirtin. Belirli tür bölüm, bu durumda seçeceğim eşittir itibaren Belirli türve seçmek istediğim adı girin, ekran görüntüsüne bakın:

4. Sonra tıklayın Ok düğmesi, 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, lütfen tıklayın Anasayfa > Ekle > Sayfa Satırları Ekleve boş satırlar seçilen metnin üzerine eklenecektir, ekran görüntülerine bakın:

 Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!

Demo: Kutools for Excel ile belirli bir metnin üzerine boş satır ekleyin

---

En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

• Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
• Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
• Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
• Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
• Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
• Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
• Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
• Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
• 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.

Devamı ... Ücretsiz indirin... Satın alma... 

---

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

• Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
• Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
• Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

Devamı ... Ücretsiz indirin... Satın alma...