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ç > 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 Ana Sayfa > 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