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

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
Urutkan komentar berdasarkan
komentar (2)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Ini sangat membantu! Tetapi bagaimana cara menambahkan baris baru setelah beberapa teks berbeda. Misalnya saya ingin menambahkan baris setelah SB2 dan BB2, apakah bisa? atau apakah saya hanya perlu menjalankannya dua kali dengan dua teks yang berbeda?
Komentar ini diminimalkan oleh moderator di situs
Anda dapat menggunakan fungsi textjoin dengan menambahkan kata yang sama di akhir setiap baris dan kemudian menghapus kata tersebut dengan ctrl+f
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL