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

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

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 Sub

3. 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 Apply tombol, Anda akan mendapatkan hasil berikut sesuai kebutuhan:

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-2019 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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (31)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Makro Luar Biasa - Sangat menghemat waktu saya!
Komentar ini diminimalkan oleh moderator di situs
sobat makro yang sangat bagus!
Komentar ini diminimalkan oleh moderator di situs
saya ingin membuat baris duplikat secara acak,

untuk misalnya menghasilkan baris duplikat acak antara 20 hingga 80.


apa yang akan diperbarui kode untuk berikut


Sub baris sisipan()
'Perbarui oleh Extendoffice 2016616
Redup Aku Selamanya
Redupkan x Hitung Sebagai Bilangan Bulat
LabelNomor:
xCount = Application.InputBox("Jumlah Baris", "Kutools for Excel", , , , , , 1)
Jika x Hitung < 1 Maka
MsgBox "Jumlah baris yang dimasukkan error, silahkan masukkan lagi", vbInformation, "Kutools for Excel"
GoTo LabelNumber
End If
Untuk I = Range("A" & Rows.CountLarge).End(xlUp).Baris Ke 1 Langkah -1
Baris (I). Salin
Baris(I).Ubah ukuran(xCount).Sisipkan
Next
Application.CutCopyMode = Salah
End Sub
Komentar ini diminimalkan oleh moderator di situs
Saya ingin menduplikasi baris berdasarkan parameter. Misalnya, saya memiliki kolom bernama waktu durasi rapat. Jika kolom itu lebih dari 1, saya ingin menduplikasi baris ID rapat berdasarkan nomor itu. Jika durasi pertemuan adalah 2 jam, maka duplikat ID pertemuan dua kali. Jika pertemuan adalah 3 jam maka duplikat tiga kali.
peningkatan setengah jam dapat dibulatkan menjadi satu jam.

MeetingID Waktu Mulai Waktu Akhir Durasi Rapat
43117 9:00 AM 11:00 AM 02:00
43580 9:30 AM 11:00 AM 01:30
42699 10:00 AM 11:30 01:30
12345 01:00 2:00 01:00
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki masalah yang sama. Sudahkah Anda menemukan solusi?
Komentar ini diminimalkan oleh moderator di situs
Hai kawan,
Mungkin kode VBA berikut dapat membantu Anda, silakan terapkan:
Sub baris sisipan()
Redup Aku Selamanya
Redupkan xRg Sebagai Rentang
Redup xHour, xMin Selamanya
On Error Resume Next
Application.ScreenUpdating = Salah
Untuk I = Range("D" & Rows.CountLarge).End(xlUp).Baris Ke 1 Langkah -1
xJam = 0
Tetapkan xRg = Range("D" & I)
xJam = Jam(xRg.Nilai) + 1
xMin = Menit(xRg.Nilai)
Jika xMin < 30 Maka xHour = xHour - 1
Baris (I). Salin
Baris(I).Ubah ukuran(xJam).Sisipkan
Next
Application.ScreenUpdating = Benar
Application.CutCopyMode = Salah
End Sub

Silakan coba. Semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Saya menggunakan makro ini di masa lalu dan selalu berhasil sampai akhir-akhir ini. Adakah wawasan mengapa itu hanya menduplikasi baris atas bahkan ketika menggunakan makro beberapa baris? Saya telah menghapus semua filter/panel beku.
Komentar ini diminimalkan oleh moderator di situs
Hai, bagaimana saya bisa mengubah kode untuk memasukkan yang berikut ini

1. duplikat berdasarkan jumlah hari
2. ubah kolom EOM dari akhir bulan menjadi tanggal harian
Komentar ini diminimalkan oleh moderator di situs
Benar-benar terima kasih atas dukungan Anda !!!!
Komentar ini diminimalkan oleh moderator di situs
Suka kodenya! bagaimana cara mengatur rentang awal untuk melewati baris pertama (Tajuk Kolom) dan mulai dari baris 2?
Komentar ini diminimalkan oleh moderator di situs
Hai, Devin,
Untuk melewati baris header pertama, silakan terapkan kode VBA berikut:

Sub baris sisipan()
Redup Aku Selamanya
Redupkan x Hitung Sebagai Bilangan Bulat
LabelNomor:
xCount = Application.InputBox("Jumlah Baris", "Kutools for Excel", , , , , , 1)
Jika x Hitung < 1 Maka
MsgBox "Jumlah baris yang dimasukkan error, silahkan masukkan lagi", vbInformation, "Kutools for Excel"
GoTo LabelNumber
End If
Untuk I = Range("A" & Rows.CountLarge).End(xlUp).Baris Ke 2 Langkah -1
Baris (I). Salin
Baris(I).Ubah ukuran(xCount).Sisipkan
Next
Application.CutCopyMode = Salah
End Sub

Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Halo, saya butuh bantuan, beginilah tampilan tabel saya, misalnya, ketika saya menambahkan 2 baris di akhir tabel pertama saya, saya ingin vba membantu saya melakukan hal yang sama untuk tabel di bawah ini (tambahkan 1 baris di ujung meja). Jadi tugas saya, hanya perlu menambahkan baris di tabel 2, tabel di bawah semua akan menghasilkan baris secara otomatis berdasarkan jumlah baris di tabel 1. ini adalah pengkodean yang saya gunakan sekarang untuk menambahkan baris untuk tabel pertama. Saya harap seseorang dapat menyelesaikan masalah ini untuk saya, thx.Sub InsertNumRows()

ActiveCell.EntireRow.Copy

Redupkan Rng Selamanya

Application.DisplayAlerts = Salah
On Error Resume Next
Rng = InputBox("Masukkan jumlah baris yang dibutuhkan.")
Pada Kesalahan GoTo 0
Application.DisplayAlerts = Benar

Jika Rng = 0 Maka
MsgBox "Anda tidak menentukan rentang!"
Keluar dari Sub

Lain
Rentang(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Pilih
Selection.EntireRow.Insert Shift:=xlDown
End If

End Sub
Komentar ini diminimalkan oleh moderator di situs
Suka! Ia bekerja setiap saat! Terima kasih banyak untuk ini :)
Komentar ini diminimalkan oleh moderator di situs
bagaimana saya melakukan ini untuk kolom?
Komentar ini diminimalkan oleh moderator di situs
Bagaimana saya bisa melakukan ini untuk kolom?
Komentar ini diminimalkan oleh moderator di situs
cara melakukan tindakan yang sama dengan sel yang dipilih menggunakan VB,


Saya perlu mengulangi beberapa sel yang dipilih (baris dan kolom) x kali dalam lembar yang sama dan dalam urutan yang sama seperti:

baris1
baris2
baris3

baris1
baris2
baris3
Komentar ini diminimalkan oleh moderator di situs
hai ini bekerja dengan baik, hanya saya perlu dua baris disalin N beberapa kali. Bisakah Anda menyesuaikan kodenya sehingga ketika saya memilih dua baris, itu akan menyalin dua baris itu ke bawah N kali? terima kasih atas bantuan Anda
Komentar ini diminimalkan oleh moderator di situs
Halo, Sal,
Jika Anda hanya perlu menyalin dua baris ke bawah beberapa kali, Anda hanya perlu menggunakan kode VBA 1 dalam artikel ini, menerapkan kode dua kali akan menyelesaikan masalah Anda. Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Salin Dan Sisipkan Setiap Baris Beberapa Kali Dengan Kode VBA

Dalam kode VBA bagaimana saya bisa memilih baris awal?
Komentar ini diminimalkan oleh moderator di situs
Tidak ada fungsi di Windows 2019, deseo usar la función en mención pero simplemente no hace absolutamente nada
Komentar ini diminimalkan oleh moderator di situs
hai semuanya.. Terima kasih sebelumnya atas bantuannya!!

Kode VBA untuk menduplikasi satu baris tertentu beberapa kali berfungsi dengan baik hingga Anda menggunakan filter. Saya ingin tahu apakah seseorang dapat membantu saya menyelesaikan masalah ini. Saya memerlukan kode yang berfungsi bahkan jika Anda memiliki beberapa nilai yang difilter. Saya menggunakan sejumlah besar data yang diurutkan berdasarkan lokasi. Kode sebagian berfungsi, ia menempelkan jumlah keinginan baris tetapi tidak ada data atau format ketika saya telah menerapkan filter.
Komentar ini diminimalkan oleh moderator di situs
Halo, apakah mungkin menggunakan ukuran (nilai) yang berbeda untuk setiap baris? Saya mencoba menggunakan vektor, tetapi tidak berhasil.
Contohnya :
Baris(I).Ubah ukuran(xCount(y) ).Sisipkan

Di mana nilai yang disimpan dalam xCount(y) dibaca dari tabel.
Komentar ini diminimalkan oleh moderator di situs
Halo, Gus,
Mungkin artikel di bawah ini dapat membantu Anda, silakan periksa:
https://www.extendoffice.com/documents/excel/4054-excel-duplicate-rows-based-on-cell-value.html
Komentar ini diminimalkan oleh moderator di situs
Untuk kode VBA kedua (kode VBA: Gandakan setiap baris beberapa kali) saya terus mendapatkan kesalahan run time: 1004
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan