Bagaimana cara menduplikat baris berdasarkan nilai sel di kolom?
Sebagai contoh, saya memiliki sejumlah data yang berisi daftar nomor di kolom D, dan sekarang, saya ingin menduplikat keseluruhan baris beberapa kali berdasarkan nilai numerik di kolom D untuk mendapatkan hasil berikut. Bagaimana saya bisa menyalin baris beberapa kali berdasarkan nilai sel di Excel?
Baris duplikat beberapa kali berdasarkan nilai sel dengan kode VBA
Alat Produktivitas yang Disarankan untuk Excel / Office
Office Tab: Bawa pengeditan tab ke Excel dan perangkat lunak Office lainnya, seperti Chrome, Firefox, dan Safari.Trial Gratis 30-hari tanpa batas
Kutools for Excel: Fitur 300 yang kuat membuat Excel lebih mudah dan meningkatkan produktivitas dengan segera.Trial Gratis 60-hari tanpa batas
Baris duplikat beberapa kali berdasarkan nilai sel dengan kode VBA
Untuk menyalin dan menduplikat seluruh baris beberapa kali berdasarkan nilai sel, kode VBA berikut dapat membantu Anda, lakukan seperti ini:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan paste kode berikut di Modul Jendela.
Kode VBA: Gandakan baris beberapa kali berdasarkan nilai sel:
Sub CopyData() 'Updateby Extendoffice 20160922 Dim xRow As Long Dim VInSertNum As Variant xRow = 1 Application.ScreenUpdating = False Do While (Cells(xRow, "A") <> "") VInSertNum = Cells(xRow, "D") If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select Selection.Insert Shift:=xlDown xRow = xRow + VInSertNum - 1 End If xRow = xRow + 1 Loop Application.ScreenUpdating = False End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, seluruh baris telah diduplikasi beberapa kali berdasarkan nilai sel di kolom D sesuai kebutuhan Anda.
Catatan: Dalam kode diatas, hurufnya A menunjukkan kolom awal rentang data Anda, dan hurufnya D adalah kolom surat yang ingin Anda duplikat baris berdasarkan. Tolong ubah sesuai kebutuhan Anda.
Alat Produktifitas yang Direkomendasikan
Office Tab
Bawa tab yang berguna ke Excel dan perangkat lunak Office lainnya, seperti Chrome, Firefox dan Internet Explorer baru.
Kutools for Excel
Menakjubkan! Tingkatkan produktivitas Anda dalam 5 menit. Tidak perlu keahlian khusus, hemat dua jam setiap hari!
300 Fitur Baru untuk Excel, Membuat Excel Lebih Mudah dan Hebat:
- Gabungkan Sel / Baris / Kolom tanpa Kehilangan Data.
- Menggabungkan dan mengkonsolidasikan beberapa lembar dan buku kerja.
- Bandingkan Range, Copy Multiple Ranges, Konversi Teks ke Tanggal, Konversi Unit dan Mata Uang.
- Hitung dengan Warna, Pager Subtotals, Filter Sort dan Super Tingkat Lanjut,
- Lebih Pilih / Sisipkan / Hapus / Teks / Format / Link / Komentar / Buku Kerja / Lembar Kerja Alat ...