Loncat ke daftar isi utama

Bagaimana cara memasukkan baris kosong setelah teks tertentu di Excel?

Jika Anda ingin memasukkan baris kosong setelah teks tertentu seperti gambar berikut yang ditampilkan, bagaimana cara mengatasinya dengan cepat dan mudah tanpa memasukkannya secara manual satu per satu?

Masukkan baris kosong setelah teks tertentu dengan kode VBA


Masukkan baris kosong setelah teks tertentu dengan kode VBA

Anda dapat menerapkan kode VBA di bawah ini untuk memasukkan baris kosong setelah teks spesifik yang Anda butuhkan, lakukan seperti ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Module Window.

Kode VBA: Masukkan baris kosong setelah teks tertentu

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

Note: Pada kode di atas, Anda dapat mengubah nilai teks “Sedang diproses"Ke nilai lain yang Anda inginkan dari skrip Jika InStr (1, xRng.Cells (i, 1) .Value, "In progressing")> 0 Maka.

3. Lalu tekan F5 kunci untuk menjalankan kode ini, di kotak dialog yang muncul, pilih data kolom berisi teks tertentu yang ingin Anda gunakan, lihat tangkapan layar:

4. Dan kemudian, klik OK tombol, dan baris kosong telah dimasukkan setelah teks tertentu yang Anda tentukan, lihat tangkapan layar:


Artikel sisipkan baris yang lebih relatif:

  • Salin Dan Sisipkan Baris Beberapa Kali Atau Gandakan Baris X Kali
  • Dalam pekerjaan Anda sehari-hari, pernahkah Anda mencoba menyalin satu baris atau setiap baris dan kemudian menyisipkan beberapa kali di bawah baris data saat ini di lembar kerja? Misalnya, saya memiliki berbagai sel, sekarang, saya ingin menyalin setiap baris dan menempelkannya 3 kali ke baris berikutnya seperti gambar berikut yang ditampilkan. Bagaimana Anda bisa menangani pekerjaan ini di Excel?
  • Sisipkan Baris Kosong Saat Nilai Berubah Di Excel
  • Misalkan Anda memiliki berbagai data, dan sekarang Anda ingin menyisipkan baris kosong di antara data ketika nilai berubah, sehingga Anda dapat memisahkan nilai yang sama berurutan dalam satu kolom seperti yang ditunjukkan tangkapan layar berikut. Pada artikel ini, saya akan berbicara tentang beberapa trik bagi Anda untuk mengatasi masalah ini.
  • Sisipkan Baris Kosong Di Atas Teks Tertentu Di Excel
  • Saat Anda mengerjakan worksheet, pernahkah Anda mencoba memasukkan baris kosong di atas teks tertentu dalam sebuah kolom? Misalnya, ada beberapa nama di kolom A, sekarang, saya ingin memasukkan baris kosong di atas sel yang berisi nama "Mike" seperti gambar kiri yang ditampilkan, mungkin, tidak ada cara langsung bagi Anda untuk menyelesaikan tugas ini di Excel . Artikel ini, saya akan berbicara tentang beberapa trik bagus untuk menangani pekerjaan ini di Excel.

  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom dan Menyimpan Data; Pisahkan Konten Sel; Gabungkan Baris Duplikat dan Jumlah / Rata-rata... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Favorit dan Sisipkan Rumus dengan Cepat, Rentang, Grafik dan Gambar; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Pengelompokan Tabel Pivot menurut nomor minggu, hari dalam seminggu dan banyak lagi ... Tampilkan Sel yang Tidak Terkunci dan Terkunci dengan warna berbeda; Sorot Sel Yang Memiliki Rumus / Nama...
tab kte 201905
  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is so helpful! But how do I add new rows after several different texts. For example, I want to add a row after SB2 and BB2, is this possible? or do I just need to run it two times with two different texts?
This comment was minimized by the moderator on the site
You can use the textjoin function by adding the same word at the end of each line and then delete that word with ctrl+f
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations