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

Bagaimana cara memasukkan baris kosong di atas teks tertentu di Excel?

doc menyisipkan baris di atas teks tertentu 1 2 doc menyisipkan baris di atas teks tertentu 2

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.

Masukkan baris kosong di atas teks tertentu dengan kode VBA

Masukkan baris kosong di atas teks tertentu dengan Kutools for Excel


Masukkan baris kosong di atas teks tertentu dengan kode VBA

Untuk memasukkan baris kosong di atas teks tertentu secara manual satu per satu akan membuang banyak waktu, di sini, saya akan membuat kode VBA untuk Anda memasukkan baris kosong di atas nilai sel tertentu sekaligus.

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

2. Klik Menyisipkan > Modul, dan lalu tempelkan makro berikut di file Modul Jendela.

Kode VBA: Masukkan baris kosong di atas teks tertentu dengan cepat

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. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak dialog akan muncul untuk mengingatkan Anda memilih data kolom yang berisi teks tertentu yang ingin Anda sisipkan baris di atas, lihat tangkapan layar:

doc menyisipkan baris di atas teks tertentu 3

4. Dan kemudian klik OK tombol, baris kosong telah disisipkan di atas teks spesifik "Mike".

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


Masukkan baris kosong di atas teks tertentu dengan Kutools for Excel

Jika Anda memiliki Kutools untuk Excel, Dengan yang Pilih Sel Spesifik fitur, Anda dapat memilih nilai sel yang ditentukan terlebih dahulu, lalu menerapkan utilitas Sisipkan Baris Lembar dari Excel untuk menyisipkan baris kosong sekaligus.

Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari

Setelah menginstal Kutools untuk Excel, lakukan hal berikut:

1. Pilih rentang data yang ingin Anda gunakan.

2. Lalu klik Kutools > Pilih > Pilih Sel Spesifik, lihat tangkapan layar:

3. di Pilih Sel Spesifik kotak dialog, pilih Sel bawah Tipe pilihan, lalu tentukan kriteria yang Anda perlukan di bawah file Tipe khusus bagian, dalam hal ini, saya akan memilih sama dari Tipe khusus, dan masukkan nama yang ingin saya pilih, lihat tangkapan layar:

doc menyisipkan baris di atas teks tertentu 5

4. Lalu klik Ok tombol, semua sel yang nilainya Mike dipilih sekaligus, lihat tangkapan layar:

doc menyisipkan baris di atas teks tertentu 6

5. Setelah memilih sel teks tertentu, silakan klik Beranda > Menyisipkan > Sisipkan Baris Lembar, dan baris kosong akan disisipkan di atas teks yang dipilih, lihat tangkapan layar:

doc menyisipkan baris di atas teks tertentu 7 2 doc menyisipkan baris di atas teks tertentu 2

 Unduh dan uji coba gratis Kutools untuk Excel Sekarang!


Demo: Masukkan baris kosong di atas teks tertentu dengan Kutools for Excel

Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • 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 tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... 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 ...
  • 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...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • 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 (7)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Hai, saya punya masalah yang sama seperti yang di atas. Bagaimana jika saya ingin memilih sel di bawah kriteria yang ditentukan? Misalnya, Anda dapat menggunakan contoh dari atas. saya ingin memilih sel di bawah "Mike". apakah ada jalan keluar yang mudah?
Komentar ini diminimalkan oleh moderator di situs
@SSJ apakah Anda pernah menemukan solusi?
Komentar ini diminimalkan oleh moderator di situs
Hallo teman-teman,

Untuk menyisipkan baris kosong di bawah nilai sel tertentu, Anda dapat menerapkan kode berikut:

SubBaris Kosong()
Dim Rng Sebagai Rentang
Redup WorkRng Sebagai Rentang
On Error Resume Next
xTitleId = "KutoolsforExcel"
Atur WorkRng = Application.Selection
Atur WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Setel WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Salah
Untuk xRowIndex = xLastRow Ke 1 Langkah -1
Atur Rng = WorkRng.Range("A" & xRowIndex)
Jika Rng.Value = "Mike" Maka
Rng.Offset(1, 0).SeluruhRow.Sisipkan Shift:=xlDown
End If
Next
Application.ScreenUpdating = Benar
End Sub

Silakan ubah kriteria "Mike" ke nilai sel Anda sendiri.

Semoga bisa membantu Anda, terima kasih!
Komentar ini diminimalkan oleh moderator di situs
terima kasih! itu berhasil.
Komentar ini diminimalkan oleh moderator di situs
Ini luar biasa untuk data yang saya miliki. Saya ingin tahu apakah Anda dapat membantu saya selangkah lebih maju. Saya telah dapat membagi data saya berdasarkan ini, tetapi kemudian saya perlu memberi kode warna pada grup data saya. Ketika saya membagi data saya, saya memiliki sejumlah variabel baris dari 1-50, dan saya memiliki 36 kolom data termasuk 32 kolom yang saya perlukan untuk membandingkan nilai-nilai di dalam ke baris atas. Saat ini saya secara manual memilih setiap grup (dipisahkan oleh baris kosong) dan kemudian menggunakan ctrl+shift+| untuk menyorot perbedaan kolom, dan memformat sel tersebut untuk menyorot perbedaan.


Apakah ada orang yang dapat menulis kode untuk memilih dan memformat perbedaan kolom tersebut dalam pengelompokan, menggunakan baris kosong sebagai pemisah?
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk tidak muncul kotak dialog dengan pop out untuk mengingatkan saya untuk memilih data kolom yang berisi teks tertentu yang ingin saya sisipkan baris di atas, Jika sel tertentu diisi dengan data, maka proses berjalan secara otomatis, tanpa disuruh, dan masukkan baris di atas?
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba melakukannya untuk meletakkan baris kosong setelah setiap sel yang tidak kosong, tetapi kata excel. "Perintah itu tidak dapat digunakan pada banyak pilihan"
Mengapa itu tidak berhasil untuk saya ???
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