Catatan: Bahasa lain di situs web diterjemahkan oleh Google. Kembali ke Bahasa Inggris
Masuk  \/ 
x
or
x
Daftar  \/ 
x

or

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.
Catatan: 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 tombol.

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. Uji Coba Gratis Fitur Lengkap 30 hari!
copy iklan beberapa lembar kerja 01

Kutools untuk Excel - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu 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

Catatan: 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 - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu kartu kredit! Get It Now

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

Catatan: Mengklik Kutools Plus > 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 tombol.

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:

Ini 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 - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu kartu kredit! Get It Now

1. Klik Kutools Plus > 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 Berikutnya tombol. Lihat tangkapan layar:

3. Di panduan Gabungkan Lembar Kerja - Langkah 2 dari 3, lakukan seperti gambar berikut yang ditunjukkan:
(1) Klik menambahkan > fillet 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) serta (3) untuk memilih lembar kerja dari buku kerja lain yang akan Anda salin.
(5) Klik Berikutnya tombol.

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

5. Sekarang di dialog baru, tentukan folder tujuan untuk menyimpan buku kerja baru, beri nama buku kerja baru di Nama file kotak, dan klik Hemat 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 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 ...
  • Super Formula Bar (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.
kte tab 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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Tyler Dempsey · 3 years ago
    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.
    • To post as a guest, your comment is unpublished.
      Jorge · 1 years ago
      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
    • To post as a guest, your comment is unpublished.
      Schuyler · 3 years ago
      [quote name="Tyler Dempsey"]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.[/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
      • To post as a guest, your comment is unpublished.
        Belva · 1 months ago
        Thank you, the last one saved my life :)
    • To post as a guest, your comment is unpublished.
      Schuyler · 3 years ago
      [quote name="Tyler Dempsey"]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.[/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)
  • To post as a guest, your comment is unpublished.
    Simon · 4 years ago
    Fantastic VBA code - really helped
  • To post as a guest, your comment is unpublished.
    Barry · 4 years ago
    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
    • To post as a guest, your comment is unpublished.
      MJ · 2 years ago
      i got syntax error on "After:=ActiveWorkbook.Sheets(Worksheets.Count)


      but i dunno whats wrong... Can u help me please?
    • To post as a guest, your comment is unpublished.
      Kate · 3 years ago
      Thank you so much Barry. Your finished macro is the only thing that worked for me.
  • To post as a guest, your comment is unpublished.
    stalag 17 · 4 years ago
    where i will insert this above code in vba should i create common button then inside ?? regards.
    • To post as a guest, your comment is unpublished.
      Adi · 3 years ago
      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.
  • To post as a guest, your comment is unpublished.
    Susan · 5 years ago
    I get an error that 'numtimes' is not defined...?
  • To post as a guest, your comment is unpublished.
    Debbi · 5 years ago
    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)
    • To post as a guest, your comment is unpublished.
      Schuyler · 5 years ago
      [quote name="Debbi"]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)[/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.
  • To post as a guest, your comment is unpublished.
    Roy · 5 years ago
    how to copy with same column widths
    • To post as a guest, your comment is unpublished.
      Schuyler · 5 years ago
      Same column widths as the original Worksheet or do you want all of the column widths to be the same?
  • To post as a guest, your comment is unpublished.
    sadaqat · 5 years ago
    yes it works thanks I have successfully make multiple copies of a single worksheet in same workbook by using vba code thnx a lot.
  • To post as a guest, your comment is unpublished.
    Gopal Krishan · 5 years ago
    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.
  • To post as a guest, your comment is unpublished.
    juan · 6 years ago
    [quote name="MichaelTadashi"]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?[/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!
    • To post as a guest, your comment is unpublished.
      Schuyler · 5 years ago
      [quote name="juan"][quote name="MichaelTadashi"]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?[/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![/quote]

      If you want the sheet copies to be in sequential order instead of backwards, change the following line...

      [i]After:=ActiveWorkbook.Sheets[/i][u]("Sheet1")[/u]

      to this...

      [i]After:=ActiveWorkbook.Sheets[/i][u](Worksheets.Count)[/u]

      My completed code looked like the following which uses 2 InputBox prompts to allow for a dynamic copy count and worksheet name..


      [i]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[/i]
      • To post as a guest, your comment is unpublished.
        Karsten · 4 years ago
        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.
  • To post as a guest, your comment is unpublished.
    Lim · 6 years ago
    Wow, thanks for the VBA code. It really helps a lot!
  • To post as a guest, your comment is unpublished.
    Dee · 6 years ago
    thanks, the vba code was huge
  • To post as a guest, your comment is unpublished.
    Theou Aegis · 6 years ago
    I tried the VBA code and got subscript out of range error (9). I replaced the sheet name with anything I could think of that was in the workbook already. Any idea what I did wrong?

    Also, is there a way to make it name each sheet incrementally? This would tie in with Michael's question, I'm sure. I'm guessing the answer to his question would be you'd need to set the After target to "sheet"+x somehow and that in turn would apply to my question if there was a way to specify what to name the new sheet. I could always just change my boss' "master" to "Aug 0" or whatever month it is, but it'd be easier for her to understand if the script did the naming automatically.
  • To post as a guest, your comment is unpublished.
    MichaelTadashi · 7 years ago
    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?