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.
| 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:
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
En İyi Ofis Üretkenlik Araçları
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...
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!
