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

Bagaimana cara memasukkan 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 saat nilai berubah dengan fungsi Subtotal

Sisipkan baris kosong saat nilai berubah dengan kolom pembantu

Masukkan baris kosong saat nilai berubah dengan kode VBA

Sisipkan jumlah baris kosong tertentu ketika nilai berubah dengan fitur canggih


Sisipkan baris kosong saat nilai berubah dengan fungsi Subtotal

Dengan Subtotal Fitur, Anda dapat menyisipkan baris kosong di antara data ketika nilai berubah sebagai langkah-langkah berikut:

1. Pilih rentang data yang ingin Anda gunakan.

2. Klik Data > Subtotal untuk membuka Subtotal kotak dialog, dan di Subtotal dialog, lakukan opsi berikut:

1: Pilih nama kolom yang ingin Anda sisipkan baris kosong berdasarkan perubahan nilai di bawahnya Di setiap perubahan di bagian;
2: Pilih Menghitung dari Gunakan fungsi daftar drop-down;
3: Periksa nama kolom yang ingin Anda sisipkan subtotalnya di Tambahkan subtotal ke kotak daftar

3. Lalu klik OK, garis subtotal telah disisipkan di antara produk yang berbeda, dan simbol garis besar ditampilkan di sebelah kiri tabel, lihat tangkapan layar:

4. Dan kemudian klik angka 2 di bagian atas simbol garis untuk hanya menampilkan garis subtotal.

5. Kemudian pilih data kisaran subtotal, dan tekan Alt +; tombol pintas untuk memilih baris yang terlihat saja, lihat tangkapan layar:

6. Setelah memilih baris yang terlihat saja kemudian tekan Delete tombol pada keyboard, dan semua baris subtotal telah dihapus.

7. Lalu klik sel lainnya, dan kembali Data > Ungroup > Hapus Garis Besar untuk menghapus Garis, lihat tangkapan layar:

8. Simbol garis besar telah dihapus sekaligus, dan Anda dapat melihat baris kosong telah disisipkan di antara data saat nilai berubah, lihat tangkapan layar:

9. Akhirnya, Anda dapat menghapus kolom A sesuai kebutuhan.


Sisipkan hentian halaman, baris kosong, batas bawah, atau warna isian ketika nilai berubah dengan cepat

Jika Anda memiliki Kutools untuk Excel's Bedakan perbedaan fitur, Anda dapat dengan cepat menyisipkan hentian halaman, baris kosong, batas bawah atau warna isian saat nilai berubah sesuai kebutuhan. Lihat demo di bawah ini.         Klik untuk mengunduh Kutools for Excel!


Sisipkan baris kosong saat nilai berubah dengan kolom pembantu

Dengan kolom pembantu, Anda bisa menyisipkan rumus terlebih dahulu, lalu menerapkan Cari dan Ganti fungsi, akhirnya, masukkan baris kosong di antara nilai-nilai yang berubah. Harap lakukan sebagai berikut:

1. Di sel C3 kosong, masukkan rumus ini = A3 = A2, dan di sel D4 masukkan rumus ini = A4 = A3, lihat tangkapan layar:

2. Kemudian pilih C3: D4, dan seret gagang isian ke kisaran yang ingin Anda terapkan rumus ini, dan Anda akan mendapatkan Benar or Salah di sel, lihat tangkapan layar:

3. Lalu tekan Ctrl + F kunci untuk membuka Cari dan Ganti dialog, di dialog yang muncul, masukkan SALAH ke dalam Temukan apa kotak teks di bawah Menemukan tab, dan klik Opsi tombol untuk memperluas dialog ini, dan pilih Nilai - Nilai dari Lihat kedalam daftar drop-down, lihat tangkapan layar:

4. Klik Temukan semua tombol, lalu tekan Ctrl + A untuk memilih semua hasil pencarian, semua sel SALAH telah dipilih sekaligus, lihat tangkapan layar:

6. Tutup Cari dan Ganti dialog, langkah selanjutnya, Anda dapat memasukkan baris kosong dengan mengklik Beranda > Menyisipkan > Sisipkan Baris Lembar, dan baris kosong telah dimasukkan ke dalam data ketika nilai berubah berdasarkan kolom A, lihat tangkapan layar:

7. Terakhir, Anda dapat menghapus kolom pembantu C dan D sesuai kebutuhan.


Masukkan baris kosong saat nilai berubah dengan kode VBA

Jika Anda bosan menggunakan metode di atas, berikut ini adalah kode yang juga dapat membantu Anda memasukkan baris kosong di antara nilai yang diubah sekaligus.

1. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.

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

Kode VBA: Masukkan baris kosong saat nilai berubah

Sub InsertRowsAtValueChange()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
    If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
        WorkRng.Cells(i, 1).EntireRow.Insert
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk membiarkan Anda memilih satu kolom data yang ingin Anda sisipkan baris kosong ketika nilai berubah yang Anda berdasarkan, lihat tangkapan layar:

4. Dan kemudian klik OK, baris kosong telah disisipkan di antara data ketika nilai berubah berdasarkan kolom A.


Sisipkan jumlah baris kosong tertentu ketika nilai berubah dengan fitur canggih

Jika Anda mencoba dengan metode merepotkan di atas, di sini, saya akan memperkenalkan alat yang bermanfaat, Kutools untuk Excel's Bedakan perbedaan dapat membantu Anda menyisipkan hentian halaman, baris kosong, batas bawah atau warna isian saat nilai sel berubah dengan cepat dan mudah.

Tip:Untuk menerapkan ini Bedakan perbedaan fitur, pertama, Anda harus mengunduh Kutools untuk Excel, lalu terapkan fitur dengan cepat dan mudah.

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

1. Klik Kutools > dibentuk > Bedakan perbedaan, lihat tangkapan layar:

2. di Bedakan perbedaan dengan kolom kunci kotak dialog, lakukan operasi berikut:

  • Pilih rentang data yang ingin Anda gunakan, lalu pilih kolom kunci yang ingin Anda sisipkan baris kosong berdasarkan;
  • Lalu periksa Baris kosong pilihan dari Opsi bagian, dan masukkan jumlah baris kosong yang ingin Anda sisipkan.

3. Lalu klik Ok tombol, dan jumlah baris kosong tertentu telah dimasukkan ke dalam data jika nilai sel berubah, lihat tangkapan layar:

Klik untuk Mengunduh Kutools for Excel 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 (15)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki kolom dengan angka 5,4,3,2 dan 1 (BANYAK dari mereka) dan saya ingin memisahkan Fives dari yang lain, seperti: 5 5 5 4 3 2 1 5 5 5 5 5 4 3 2 1 Angka-angka dalam urutan desc dan selalu ada empat di bawah lima, jadi saya mencoba: Sub InsertRowsAtValueChange() 'Update 20140716 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Atur WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Application.ScreenUpdating = False For i = WorkRng.Rows.Count To 2 Step -1 If WorkRng.Cells(i, 1). Nilai = 5 Dan WorkRng.Cells(i - 1, 1).Nilai = 4 Kemudian WorkRng.Cells(i, 1).EntireRow.Insert End If Next Application.ScreenUpdating = True End Sub Tapi tidak berhasil. Bisakah kamu membantuku?
Komentar ini diminimalkan oleh moderator di situs
Rumusnya berfungsi dengan baik, namun ada beberapa contoh yang tidak dikenali
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak, mencari di mana-mana dan ini adalah satu-satunya solusi yang bekerja untuk saya yang juga dalam bahasa Inggris. Semua situs web tutorial Excel lainnya tidak menguraikannya selangkah demi selangkah seperti yang Anda lakukan, terima kasih banyak. Bersulang : )
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak telah menjelaskan beberapa solusi untuk masalah tersebut. Saya menggunakan Visual Basic dan mengubah [quote]WorkRng.Cells(i, 1).EntireRow.Insert[/quote] dengan [quote]With WorkRng.Cells(i, 1).EntireRow.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With[/quote] Ini akan menarik garis di antara baris dengan nilai yang berubah, bukan baris kosong.
Komentar ini diminimalkan oleh moderator di situs
Di mana dalam kode saya perlu memodifikasi untuk memasukkan lebih dari satu baris, saya perlu menambahkan 10 setelah setiap jeda ... Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Hai semua terima kasih!! luar biasa, bisakah kalian juga memberi tahu saya cara menyisipkan 2 baris ketika nilainya berubah di VBA atau melalui excel.
Komentar ini diminimalkan oleh moderator di situs
Halo, Ini hampir berguna! Metode pertama tidak bekerja untuk saya karena ketika saya mengikuti langkah-langkah secara eksplisit, data yang saya hapus di panel subtotal menghapus seluruh kolom yang telah saya urutkan. Dalam metode kedua ketika saya sampai ke langkah di mana saya memasukkan baris lembar, baris dimasukkan DI ATAS sel FALSE yang memecah data, tetapi pilihan terakhir dari setiap grup kemudian ditambahkan ke grup di bawah ini. Ada saran???
Komentar ini diminimalkan oleh moderator di situs
[quote]Hai semua terima kasih!! luar biasa, bisakah kalian juga memberi tahu saya cara menyisipkan 2 baris ketika nilainya berubah di VBA atau melalui excel.Oleh Hudson[/quote] Tolong beri tahu saya cara menyisipkan lebih dari 1 baris.
Komentar ini diminimalkan oleh moderator di situs
Saya telah menggunakan solusi saya sendiri untuk beberapa waktu.
1. Sisipkan kolom pembantu ke dalam Kolom A
2. Di A2, ketik "if(B2=B1,A1,A1+1)"
3. Salin rumus itu ke baris terakhir
4. Salin semua sel yang terisi di kolom A dan Tempel Spesial (Nilai) di atasnya
5. Salin semua sel lagi dan tempelkan ke kolom A di sel pertama yang tidak berpenghuni (misalnya jika Anda memiliki 104 baris data ditambah satu baris header, Anda akan menempelkannya ke sel A106)
6. Klik Data dan Hapus Duplikat (hanya pada sel yang baru saja Anda tempel di Langkah 5; tidak di semua baris)
7. Urutkan semua Kolom A
8. Hapus Kolom A

Sepertinya banyak langkah tetapi hanya membutuhkan beberapa detik.
Komentar ini diminimalkan oleh moderator di situs
Kode VBA berfungsi pertama kali dan melakukan persis apa yang saya coba lakukan. Terima kasih banyak!
Komentar ini diminimalkan oleh moderator di situs
RE: masukkan baris kosong ketika nilai berubah dengan kode vba
Apakah ada cara agar saya dapat menyimpan Rentang & tidak harus mengambilnya setiap kali saya menjalankannya?
Komentar ini diminimalkan oleh moderator di situs
Halo,
Sangat berguna jika saya perlu memasukkan 1 baris, tetapi jika saya perlu memasukkan 145 baris setiap kali data berubah di kolom spwcific, bagaimana saya bisa melakukannya??
Komentar ini diminimalkan oleh moderator di situs
Hai, Hasan,
Untuk menyisipkan beberapa baris kosong saat nilai berubah dalam kolom tertentu, Anda harus menerapkan kode VBA berikut:

Catatan: Pada kode di bawah ini, Anda harus mengubah angka 99 sesuai kebutuhan Anda, misalnya ketika Anda memasukkan 145 baris kosong, Anda harus mengubah angka 99 menjadi 144. Silakan coba, semoga membantu Anda!

Sub MasukkanRowsAtValueChange()
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)
Application.ScreenUpdating = Salah
Untuk i = WorkRng.Rows.Count Ke 2 Langkah -1
If WorkRng.Cells(i, 1).Nilai <> WorkRng.Cells(i - 1, 1).Nilai Kemudian
Rentang(WorkRng.Sel(i, 1).SeluruhRow, WorkRng.Sel(i + 99, 1).SeluruhRow).Sisipkan
End If
Next
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Sangat membantu. Kode yang ditunjukkan skyyang di atas bekerja dengan sempurna. Pastikan saja bahwa data tidak memiliki spasi di dalamnya.

Saya tidak mengerti VBA, tapi saya yakin jika Anda ingin menambahkan lebih banyak baris di bawah data yang sudah memiliki spasi, harus ada cara untuk mengabaikan spasi.

Bisakah baris ditambahkan untuk mengabaikan atau melewati baris kosong? Itu mungkin membuat kode ini lebih universal dan dapat diulang jika diperlukan. Juga fungsi hapus yang mirip dengan ini mungkin berguna sehingga tidak perlu membatalkan.
Komentar ini diminimalkan oleh moderator di situs
Bisakah metode VBA diadaptasi untuk mengabaikan sel kosong? Saya memiliki file yang harus saya sisipkan baris berdasarkan dua kolom yang berbeda tetapi ketika saya menjalankan makro pada kolom kedua saya berakhir dengan tiga baris kosong di mana makro pertama menjalankan baris.
Atau bisa dijalankan di dua kolom sekaligus?
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