Ana içeriğe atla

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

doc belirli metnin üstüne satır ekle 1 2 doc belirli metnin üstüne satır ekle 2

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:

doc belirli metnin üstüne satır ekle 3

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.

Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin

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:

doc belirli metnin üstüne satır ekle 5

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:

doc belirli metnin üstüne satır ekle 6

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:

doc belirli metnin üstüne satır ekle 7 2 doc belirli metnin üstüne satır ekle 2

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


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

Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!

En İyi Ofis Üretkenlik Araçları

Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50'den fazla Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

kte sekmesi 201905


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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I try do it to put a blank row after every non-empty cell, but excel says. "That command cannot be used on multiple selections"
Why it dosnt work for me???
This comment was minimized by the moderator on the site
Is there a way not to appears dialog box with pop out to remind me to select the column data which contains specific text I want to insert row above, If a specified cell is filled with data, then process run automatically , without promptings, and insert row above?
This comment was minimized by the moderator on the site
This has been amazing for the data I have. I was wondering if you could help me one step further. I have been able to split my data based on this, but then I need to colour code my groups of data. When I split my data I have a variable number of rows from 1-50, and I have 36 columns of data including 32 columns that I need to compare the values within to the top row. I am currently manually selecting each group (as separated by a blank row) and then using ctrl+shift+| to highlight column differences, and formatting those cells to highlight the differences.


Is there anyone who could write a code to select and format those column differences within the groupings, using the blank row as a separator?
This comment was minimized by the moderator on the site
Hi, i have a similar problem as the one above. What if i want to select the cell below a specified criteria? For example, you can use the example from above. i want to select the cell below "Mike". is there any easy way out?
This comment was minimized by the moderator on the site
@SSJ did you ever find a solution?
This comment was minimized by the moderator on the site
Hello, guys,

To insert blank rows below a specific cell value, you can apply the following code:

Sub BlankLine()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step -1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "Mike" Then
Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True
End Sub

Please change the criteria "Mike" to your own cell value.

Hope it can help you, thank you!
This comment was minimized by the moderator on the site
thank you! its worked.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations