Excel'de belirli bir metinden sonra boş satır nasıl eklenir?

Excel'de, belirli bir metinden sonra boş satır eklemek okunabilirliği artırmaya ve verileri daha etkin bir şekilde düzenlemeye yardımcı olabilir. Görev listesi, işlem kayıtları veya herhangi bir yapılandırılmış veriyle çalıştığınızda, belirli bir metinden sonra boş satırlar eklemek ilgili girişleri ayırmak ve gruplamak için daha iyi netlik sağlar. İşte bunu yapmak için birden fazla yöntem kullanan kapsamlı bir rehber.

Belirli bir metinden sonra boş satırlar eklemek için VBA kodu kullanma

Belirli bir metinden sonra boş satırlar eklemek için Kutools AI kullanma

Belirli bir metinden sonra boş satırlar eklemek için VBA kodu kullanma

Aşağıdaki VBA kodunu, ihtiyaç duyduğunuz belirli bir metinden sonra boş satırlar eklemek için uygulayabilirsiniz, lütfen şu adımları izleyin:

1. "Microsoft Visual Basic for Applications" penceresini açmak için "ALT + F11" tuşlarına basın.

2. "Ekle" > "Modül" seçeneğine tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Belirli bir metinden sonra boş satırlar ekleme

Sub Insertrowbelow()
'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, "In progressing") > 0 Then
        Rows(xRng.Cells(i + 1, 1).Row).INSERT shift:=xlDown
      End If
    Next
End Sub

Not: Yukarıdaki kodda, bu betikteki "İlerlemede" metnini değiştirebilirsiniz: "If InStr(1, xRng.Cells(i, 1).Value, "İlerlemede") > 0 Then".

3. Ardından, bu kodu çalıştırmak için F5 tuşuna basın, açılan diyalog kutusunda işlemek istediğiniz belirli metni içeren sütunu seçin, ekran görüntüsüne bakın:

4. Sonra Tamam düğmesine tıklayın ve belirtilen metinden sonra boş satırlar eklenecektir, ekran görüntüsüne bakın:

Belirli bir metinden sonra boş satırlar eklemek için Kutools AI kullanma

Excel'de belirli bir metinden sonra boş satırlar eklemekte zorlanıyor musunuz? "Kutools AI", işinizi kolaylaştırarak görevi sizin için basitleştirsin! Güçlü yapay zeka yetenekleri sayesinde artık veri setinizi manuel olarak tarayıp karmaşık VBA kodları yazmanıza gerek kalmayacak. Kutools AI, belirli metinleri içeren satırları anında tanımlayacak ve ihtiyaç duyduğunuz yerlere boş satırlar ekleyecektir.

Kutools For Excel'i yükledikten sonra lütfen "Kutools" > "AI Asistanı" seçeneğine tıklayarak "KUTOOLS AI Asistanı" panelini açın.

1. Boş satırlar eklemek istediğiniz veri sütununu seçin;
2. Ardından, sohbet kutusuna gereksinimi yazın: örneğin:
   Seçimden belirli metin olan "İlerlemede"den sonra boş bir satır ekleyin
3. Sonra Enter tuşuna basın veya "Gönder" düğmesine tıklayın. Kutools AI soruyu analiz edecek ve işlem tamamlandığında lütfen "Yürüt" düğmesine tıklayarak sonucu alın.

Excel'de belirli bir metinden sonra boş satır eklemek, veri setinizin boyutuna ve tercih ettiğiniz otomasyon seviyesine bağlı olarak birden fazla şekilde gerçekleştirilebilir. Eğer daha fazla Excel ipucu ve hilesi keşfetmeyi ilgi çekici buluyorsanız, web sitemiz binlerce öğretici sunmaktadır.

Daha fazla ilgili satır ekleme makalesi: