Bagaimana cara menyalin dan menyisipkan baris beberapa kali atau menduplikasi baris x kali di Excel?
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?
 |
 |
 |
- Salin dan sisipkan baris tertentu beberapa kali dengan kode VBA
- Salin dan sisipkan setiap baris beberapa kali dengan kode VBA
- Salin dan sisipkan setiap baris beberapa kali berdasarkan nomor tertentu dengan fitur luar biasa
Salin dan sisipkan baris tertentu beberapa kali dengan kode VBA
Jika Anda ingin menduplikasi hanya satu baris tertentu x kali, kode VBA berikut dapat membantu Anda, lakukan seperti ini:
1. Tentukan baris yang ingin Anda salin dan sisipkan beberapa kali, lalu tahan ALT + F11 kunci, lalu membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Gandakan satu baris tertentu beberapa kali:
Sub test()
'Updateby Extendoffice
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
ActiveCell.EntireRow.Copy
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
3. Setelah menempelkan kode, silakan tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk mengingatkan Anda untuk memasukkan berapa kali Anda ingin menduplikasi, lihat tangkapan layar:
4. Lalu klik OK tombol, dan tiga baris baru yang disalin telah dimasukkan di bawah baris yang dipilih, lihat tangkapan layar:
Salin dan sisipkan setiap baris beberapa kali berdasarkan nomor tertentu dengan mudah
Biasanya, tidak ada metode yang baik untuk menyalin dan menyisipkan baris beberapa kali kecuali berurusan dengan salin dan sisipkan secara manual. Tetapi dengan Kutools untuk Excel's Baris / kolom duplikat berdasarkan nilai sel fitur, Anda dapat mengatasi masalah ini dengan mudah. Klik untuk mengunduh Kutools for Excel!
Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 60 hari. Unduh dan uji coba gratis Sekarang!
Salin dan sisipkan setiap baris beberapa kali dengan kode VBA
Untuk menduplikasi setiap baris beberapa kali dalam satu rentang, Anda dapat menerapkan kode VBA berikut, lakukan seperti di bawah ini:
1. Tahan ALT + F11 kunci, lalu membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Gandakan setiap baris beberapa kali:
Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk mengingatkan Anda untuk memasukkan berapa kali Anda ingin menggandakan untuk setiap catatan, lihat tangkapan layar:
4. Lalu klik OK, dan setiap baris telah disalin dan disisipkan 3 kali di bawah yang aktif, lihat tangkapan layar:
|
|
|
Note: Pada kode di atas, file A menunjukkan rentang data dimulai dari kolom A, jika data Anda dimulai pada kolom K, tolong ganti A untuk K sesuai kebutuhan anda.
Salin dan sisipkan setiap baris beberapa kali berdasarkan nomor tertentu dengan fitur luar biasa
Mungkin, Anda tidak terbiasa dengan kode VBA, atau khawatir kode tersebut akan merusak data Anda. Di sini, saya akan memperkenalkan fitur yang bermanfaat, Kutools untuk Excel's Duplikat Baris / Kolom berdasarkan nilai sel, dengan utilitas ini, Anda dapat dengan cepat menyalin dan menyisipkan baris berdasarkan nomor yang Anda tentukan.
Tip:Untuk menerapkan ini Duplikat Baris / Kolom berdasarkan nilai sel fitur, pertama, Anda harus mengunduh Kutools untuk Excel, lalu terapkan fitur dengan cepat dan mudah.
Setelah menginstal Kutools untuk Excel, lakukan seperti ini:
1. Masukkan nomor berulang yang ingin Anda duplikat baris dalam daftar sel di samping data Anda, lihat tangkapan layar:
2. Klik Kutools > Menyisipkan > Duplikat Baris / Kolom berdasarkan nilai sel, lihat tangkapan layar:
3. di Salin dan sisipkan baris & kolom kotak dialog, pilih Salin dan sisipkan baris pilihan dalam Tipe bagian, lalu pilih rentang data yang ingin Anda duplikat, lalu tentukan waktu pengulangan untuk menduplikasi baris, lihat tangkapan layar:
4. Lalu klik Ok or Mendaftar tombol, Anda akan mendapatkan hasil berikut sesuai kebutuhan:
|
|
 |
Klik untuk Mengunduh Kutools for Excel dan uji coba gratis Sekarang!
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 Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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!
