Note: The other languages of the website are Google-translated. Back to English

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ç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:

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 Anasayfa > 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 Ü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.
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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (7)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, yukarıdakine benzer bir sorunum var. Belirli bir kriterin altındaki hücreyi seçmek istersem ne olur? Örneğin, yukarıdaki örneği kullanabilirsiniz. "Mike" altındaki hücreyi seçmek istiyorum. kolay bir çıkış yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
@SSJ hiç bir çözüm buldunuz mu?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Selam beyler,

Belirli bir hücre değerinin altına boş satırlar eklemek için aşağıdaki kodu uygulayabilirsiniz:

Alt BoşLine()
Menzil Olarak Dim Rng
Aralık Olarak Dim WorkRng
On Error Resume Next
xTitleId = "KutoolsforExcel"
WorkRng = Application.Selection olarak ayarlayın
WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) olarak ayarlayın
WorkRng = WorkRng.Columns(1) olarak ayarlayın
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Yanlış
xRowIndex için = xLastRow'dan 1 Adım -1'e
Set Rng = WorkRng.Range("A" & xRowIndex)
Rng.Value = "Mike" ise
Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
Eğer son
Sonraki
Application.ScreenUpdating = True
End Sub

Lütfen "Mike" kriterini kendi hücre değerinizle değiştirin.

Umarım size yardımcı olabilir, teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
teşekkür ederim! onun çalıştı.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu, sahip olduğum veriler için harika oldu. Bana bir adım daha yardım edip edemeyeceğini merak ediyordum. Verilerimi buna göre bölebildim, ancak daha sonra veri gruplarımı renklendirmem gerekiyor. Verilerimi böldüğümde 1-50 arasında değişken sayıda satıra sahibim ve en üst satırdaki değerleri karşılaştırmam gereken 36 sütun da dahil olmak üzere 32 sütun veriye sahibim. Şu anda her grubu manuel olarak seçiyorum (boş bir satırla ayrılmış olarak) ve ardından ctrl+shift+| sütun farklılıklarını vurgulamak ve bu hücreleri farklılıkları vurgulamak için biçimlendirmek için.


Boş satırı ayırıcı olarak kullanarak gruplamalar içindeki bu sütun farklılıklarını seçmek ve biçimlendirmek için bir kod yazabilecek biri var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Yukarıya satır eklemek istediğim belirli bir metni içeren sütun verilerini seçmemi hatırlatmak için açılır ile iletişim kutusu görünmemenin bir yolu var mı, Belirtilen bir hücre verilerle doluysa, işlem otomatik olarak, istemde bulunmadan çalıştırın ve ekleyin üst sıra?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Boş olmayan her hücreden sonra boş bir satır koymaya çalışıyorum ama excel diyor. "Bu komut birden fazla seçimde kullanılamaz"
Neden bende çalışmıyor???
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır