Loncat ke daftar isi utama

Bagaimana cara menyalin beberapa lembar beberapa kali di Excel?

Terkadang, kami mungkin perlu membuat salinan atau beberapa salinan dari lembar kerja yang ditentukan dalam buku kerja. Berikut adalah beberapa cara cepat untuk membantu Anda menyalin satu lembar kerja atau beberapa lembar kerja dengan mudah beberapa kali di Excel.


Buat satu salinan dari beberapa lembar kerja satu kali ke dalam buku kerja aktif atau buku kerja lain dengan perintah Pindahkan atau Salin

Dengan Pindahkan atau Salin perintah di Excel, Anda bisa membuat satu salinan lembar kerja, beberapa lembar kerja tertentu atau semua lembar kerja ke dalam buku kerja aktif atau buku kerja lain pada satu waktu.

1. Di buku kerja tertentu tempat Anda akan menyalin lembar kerja, pilih beberapa lembar kerja di bilah Tab Lembar.
Note: Memegang CTRL kunci, Anda dapat memilih beberapa tab lembar yang tidak berdekatan dengan mengkliknya satu per satu pada bilah Tab Lembar; memegang SHIFT kunci, Anda dapat memilih beberapa tab lembar yang berdekatan dengan mengklik tab lembar pertama dan yang terakhir pada bilah Tab Lembar.

2. Klik kanan tab lembar yang dipilih pada bilah Tab Lembar, dan pilih Pindahkan atau Salin dari menu konteks. Lihat tangkapan layar:
doc copy beberapa lembar 01

3. di Pindahkan atau Salin kotak dialog, tentukan pengaturan berikut:
(1) Harap tentukan buku kerja tujuan tempat Anda akan menyalin lembar kerja dari Untuk memesan daftar drop-down. Anda bisa memilih buku kerja aktif, buku kerja terbuka lainnya, atau buku kerja baru yang Anda butuhkan.
(2) Tentukan posisi lembar yang disalin pada bilah Tab Lembar, Anda dapat memilih setelah semua lembar yang ada.
(3) Periksa Buat salinan opsi, jika Anda tidak mencentang opsi ini, lembar kerja yang dipilih akan dipindahkan ke buku kerja tujuan.
(4) Klik OK .

Sekarang ini hanya akan membuat satu salinan lembar kerja yang dipilih ke dalam buku kerja yang ditentukan. Untuk membuat banyak salinan dari lembar kerja ini, Anda dapat mengulangi operasi beberapa kali.

Hanya beberapa klik untuk membuat banyak salinan dari beberapa lembar kerja di buku kerja yang aktif

Secara umum, kita dapat menyalin beberapa lembar kerja dengan Pindahkan atau Salin fitur di Excel. Namun, fitur ini hanya dapat membuat satu salinan dalam satu waktu. Di sini, dengan Kutools for Excel's Salin Lembar Kerja utilitas, Anda dapat dengan mudah membuat salinan lembar kerja sebanyak yang Anda butuhkan dalam buku kerja aktif hanya dengan beberapa klik.


copy iklan beberapa lembar kerja 01

Kutools untuk Excel - Tingkatkan Excel dengan lebih dari 300 alat penting. Nikmati uji coba GRATIS 30 hari berfitur lengkap tanpa memerlukan kartu kredit! Get It Now

Buat beberapa salinan dari satu lembar kerja yang ditentukan ke dalam buku kerja aktif dengan kode VBA

Jika Anda ingin membuat 10 salinan dari lembar kerja tertentu, file Pindahkan atau Salin perintah akan menjadi cara yang memakan waktu, dan Anda harus mengulangi operasi berkali-kali. Tetapi dengan kode VBA berikut, Anda dapat dengan cepat menyalin lembar kerja 10 kali sekaligus.

1. Tahan ALT + F11 kunci, dan itu membuka Microsoft Visual Basic untuk Aplikasi jendela.

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

VBA: Buat beberapa salinan dari lembar kerja tertentu ke dalam buku kerja aktif

Sub Copier ()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

Note: Pada kode di atas, ganti "Sheet1"dengan nama sheet yang akan disalin.

3. Lalu tekan F5 kunci untuk menjalankan kode, kotak prompt muncul untuk menanyakan jumlah lembar salinan yang Anda inginkan.

4. Lalu klik OK, lembar kerja yang ditentukan telah disalin 100 kali di buku kerja aktif.


Buat banyak salinan dari beberapa lembar kerja menjadi buku kerja aktif dengan Kutools for Excel

Meskipun mudah membuat salinan beberapa lembar kerja di Excel, jika Anda ingin membuat banyak salinan dari beberapa lembar kerja di buku kerja saat ini, Anda mungkin harus menggunakan Pindahkan atau Salin item perintah lagi dan lagi. Ingin menyelesaikan semuanya dengan satu klik? Dengan Salin Lembar Kerja utilitas add-in pihak ketiga Kutools untuk Excel, Anda dapat membuat banyak salinan dari beberapa lembar kerja dalam satu klik di Excel.

Kutools untuk Excel - Tingkatkan Excel dengan lebih dari 300 alat penting. Nikmati uji coba GRATIS 30 hari berfitur lengkap tanpa memerlukan kartu kredit! Get It Now

1. Klik Kutools Ditambah > Salin Lembar Kerja. Lihat tangkapan layar:

Note: Mengklik Kutools Ditambah > Lembar Kerja > Salin Lembar Kerja juga akan mendapatkan fitur ini.

2. Terapkan pengaturan di Salin Beberapa Lembar Kerja kotak dialog:
(1) Periksa lembar kerja yang ingin Anda salin Salin lembar kerja yang dipilih bagian.
(2) Tentukan Jumlah salinan.
(3) Tentukan posisi lembar yang disalin, misalnya, sebelum atau sesudah semua lembar kerja, sebelum atau sesudah lembar kerja saat ini.
(4) Klik Ok .

3. Sebuah kotak prompt muncul untuk mengingatkan Anda bahwa lembar kerja yang dicentang telah disalin ke beberapa kali sesuai kebutuhan Anda, silakan klik OK tombol untuk keluar. Lihat tangkapan layar:

Kredensial mikro Salin Beberapa Lembar Kerja fitur dari Kutools untuk Excel akan membuat banyak salinan dari beberapa lembar kerja yang ditentukan di buku kerja aktif dengan beberapa klik saja. Dapatkan Uji Coba Gratis!


Buat satu salinan dari beberapa lembar kerja dari beberapa buku kerja menjadi yang baru

Jika Anda menginstal Kutools for Excel, Anda juga bisa menerapkannya Gabungkan Lembar Kerja fitur untuk membuat satu salinan beberapa lembar kerja dari beberapa buku kerja tertutup menjadi buku kerja baru dengan beberapa klik saja di Excel.

Kutools untuk Excel - Tingkatkan Excel dengan lebih dari 300 alat penting. Nikmati uji coba GRATIS 30 hari berfitur lengkap tanpa memerlukan kartu kredit! Get It Now

1. Klik Kutools Ditambah > Menggabungkan untuk mengaktifkan fitur Combine Worksheets.

2. Di wizard Gabungkan Lembar Kerja - Langkah 1 dari 3, harap periksa Gabungkan beberapa lembar kerja dari buku kerja menjadi satu lembar kerja pilihan, dan klik Selanjutnya tombol. Lihat tangkapan layar:

3. Di panduan Gabungkan Lembar Kerja - Langkah 2 dari 3, lakukan seperti gambar berikut yang ditunjukkan:
(1) Klik Add > File or Map untuk menambahkan buku kerja tempat Anda akan menyalin lembar kerja.
(2) Dalam Daftar buku kerja bagian, periksa buku kerja yang lembar kerjanya akan Anda salin;
(3) Dalam Daftar lembar kerja bagian, periksa lembar kerja yang akan Anda salin;
(4) Ulangi di atas (2) dan (3) untuk memilih lembar kerja dari buku kerja lain yang akan Anda salin.
(5) Klik Selanjutnya .

4. Di wizard Gabungkan Lembar Kerja - Langkah 3 dari 3, harap konfigurasikan pengaturan penyalinan yang Anda butuhkan, dan klik Finish .

5. Sekarang di dialog baru, tentukan folder tujuan untuk menyimpan buku kerja baru, beri nama buku kerja baru di Nama file kotak, dan klik Save tombol. Lihat tangkapan layar:

Sekarang dua kotak dialog lain akan keluar dan meminta Anda untuk membuka buku kerja baru dan menyimpan skenario kombinasi, silakan klik tombol yang Anda butuhkan. Sejauh ini, itu telah menyalin semua lembar kerja yang ditentukan dari beberapa buku kerja sekaligus.

Dengan ini Gabungkan (Lembar Kerja) utilitas, Anda dapat dengan mudah menyalin dan menggabungkan lembar kerja dan buku kerja seperti daftar berikut yang ditampilkan. Dapatkan Uji Coba Gratis!
(1) Dengan cepat menggabungkan beberapa lembar kerja / rentang dari buku kerja menjadi satu lembar kerja;
(2) Dengan cepat menggabungkan / menggabungkan semua lembar kerja dengan nama yang sama di seluruh buku kerja menjadi satu lembar kerja;
(3) Dengan cepat menggabungkan / menggabungkan lembar kerja atau buku kerja menjadi satu buku kerja;
(4) Cepat meringkas / menghitung data dari beberapa lembar kerja menjadi satu lembar kerja.

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Deskripsi Produk


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!
Comments (25)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.
This comment was minimized by the moderator on the site
Working Code

Sub Copier()
Dim s As String
Dim numtimes As Integer
Dim numCopies As Integer
numCopies = InputBox("How many copies do you need?")
s = InputBox("Enter the name of the Worksheet you want to copy")
For numtimes = 1 To numCopies
ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
Next
End Sub

copy the entire line from ActiveWorkbook.Sheets...... that was the problem, and some spaces

Have a great day
This comment was minimized by the moderator on the site
[quote]I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.By Tyler Dempsey[/quote] Here is the exact code you want to use: Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
This comment was minimized by the moderator on the site
Thank you, the last one saved my life :)
This comment was minimized by the moderator on the site
[quote]I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.By Tyler Dempsey[/quote] Double check your code and make sure you don't have a space at ActiveWorkbook. Sheets(s).Copy _ or at Sheets(Worksheets.Cou nt)
This comment was minimized by the moderator on the site
Fantastic VBA code - really helped
This comment was minimized by the moderator on the site
When I first tried it, I got the error message because I didn't change the name Sheet1. After I realized what caused the error, I researched a little further, as I did not want to be manually entering the sheet name into the macro. And when I need this feature, it is almost always for the current sheet. I added the line a = activesheet.name And revised the line after:=activeworkbook.sheets("sheet1") to activeworkbook.sheets(a).copy _ That worked very well, but I did notice the numbering was reversed ... that didn't bother me as I was going to manually rename the new sheets anyway. When I saw Schuyler's post, I further revised the line activeworkbook.sheets(a).copy _ to after:=activeworkbook.sheets(worksheets.count) I am now satisfied with the result. My finished macro: Sub copies() Dim x As Integer x = InputBox("Enter number of times to copy Sheet1") For numtimes = 1 To x ActiveWorkbook.Sheets("Sheet1").Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub --- All the best, Barry
This comment was minimized by the moderator on the site
i got syntax error on "After:=ActiveWorkbook.Sheets(Worksheets.Count)


but i dunno whats wrong... Can u help me please?
This comment was minimized by the moderator on the site
Thank you so much Barry. Your finished macro is the only thing that worked for me.
This comment was minimized by the moderator on the site
where i will insert this above code in vba should i create common button then inside ?? regards.
This comment was minimized by the moderator on the site
Follow the below steps:
1. Copy the above code
2. Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.
2. Click Insert > Module, and paste the following code in the Module Window.
4.Then press F5 key to run the code
5.A prompt box appears to ask you the number of sheet copies you want.
This comment was minimized by the moderator on the site
I get an error that 'numtimes' is not defined...?
This comment was minimized by the moderator on the site
I got the same error as Theou and no one seems to have addressed it. My tabs are already named PO 51, PO 52, etc. and I replaced Sheet1 with PO 51 to copy that and got the subscript error out of range (9) I followed Schuyler's code to get the right order, but I still get the error and it's always due to these two lines: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
This comment was minimized by the moderator on the site
[quote]I got the same error as Theou and no one seems to have addressed it. My tabs are already named PO 51, PO 52, etc. and I replaced Sheet1 with PO 51 to copy that and got the subscript error out of range (9) I followed Schuyler's code to get the right order, but I still get the error and it's always due to these two lines: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)By Debbi[/quote] Can you include your complete code to make it easier to debug? A "subscript error out of range" usually means that the code references something that doesn't exist. I find this in my own code when I've got a typo or something of that nature.
This comment was minimized by the moderator on the site
how to copy with same column widths
This comment was minimized by the moderator on the site
Same column widths as the original Worksheet or do you want all of the column widths to be the same?
This comment was minimized by the moderator on the site
yes it works thanks I have successfully make multiple copies of a single worksheet in same workbook by using vba code thnx a lot.
This comment was minimized by the moderator on the site
Search for word "After" and change it to "Before". This will create copies in right order "Before" Sheet1. The only thing to rememeber is that numbering will always start from (2) as the original sheet will always be counted as 1st copy. Also you can replace "Sheet1" with name of the tab you are trying to copy.
This comment was minimized by the moderator on the site
[quote]Using the VBA code, the naming of the duplicated worksheets is in reverse order. Let's say I make 10 copies of Sheet1, I'll end up with Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......is it possible to have them in normal order?By MichaelTadashi[/quote] Anyone was able to answer this question? I need to create 72 copies, but it would be needed to have them in order (1 throught 72, intead of 72 through 1) Thanks!
This comment was minimized by the moderator on the site
[quote][quote]Using the VBA code, the naming of the duplicated worksheets is in reverse order. Let's say I make 10 copies of Sheet1, I'll end up with Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......is it possible to have them in normal order?By juan[/quote] Anyone was able to answer this question? I need to create 72 copies, but it would be needed to have them in order (1 throught 72, intead of 72 through 1) Thanks!By MichaelTadashi[/quote]e] If you want the sheet copies to be in sequential order instead of backwards, change the following line... After:=ActiveWorkbook.Sheets("Sheet1") to this... After:=ActiveWorkbook.Sheets(Worksheets.Count) My completed code looked like the following which uses 2 InputBox prompts to allow for a dynamic copy count and worksheet name.. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
This comment was minimized by the moderator on the site
How do i get the coppies continuous numbered. If the sheet i want to copy is named I002, and i want the next to be named I003,I004,I005 an so on.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations