Bagaimana cara menduplikasi baris berdasarkan nilai sel di kolom?
Misalnya, saya memiliki rentang data yang berisi daftar angka di kolom D, dan sekarang, saya ingin menduplikasi seluruh 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?
 |
 |
 |
Gandakan baris beberapa kali berdasarkan nilai sel dengan kode VBA
Salin dan sisipkan baris berdasarkan jumlah waktu tertentu dengan alat praktis - Kutools for Excel
Gandakan baris beberapa kali berdasarkan nilai sel dengan kode VBA
Untuk menyalin dan menduplikasi 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 tempel kode berikut di Modul Jendela.
Kode VBA: Baris duplikat beberapa kali berdasarkan nilai sel:
Sub CopyData()
'Updateby Extendoffice
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 digandakan beberapa kali berdasarkan nilai sel di kolom D yang Anda butuhkan.
Salin dan sisipkan baris berdasarkan jumlah waktu tertentu dengan alat praktis - Kutools for Excel
Jika Anda tidak terbiasa dengan kode VBA dan tidak dapat mengubah sendiri parameter dalam kode dengan benar. Dalam hal ini, Kutools for Excel's Gandakan Baris / Kolom Berdasarkan Nilai Sel fitur dapat membantu Anda menyalin dan menyisipkan baris beberapa kali berdasarkan nilai sel hanya dengan tiga klik.
- Klik Kutools > Menyisipkan > Duplikat Baris/Kolom Berdasarkan Nilai Sel untuk mengaktifkan fitur ini;
- Lalu pilih Salin dan sisipkan baris opsi, dan tentukan sel dari Sisipkan Rentang dan Ulangi Kali secara terpisah di kotak dialog.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda 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!
