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

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

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

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

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 Next 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) serta (3) untuk memilih lembar kerja dari buku kerja lain yang akan Anda salin.
(5) Klik Next .

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 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-2021 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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (25)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Menggunakan kode VBA, penamaan lembar kerja yang digandakan dalam urutan terbalik. Katakanlah saya membuat 10 salinan Sheet1, saya akan berakhir dengan Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......apakah mungkin untuk memilikinya dalam urutan normal?
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba kode VBA dan mendapatkan kesalahan subskrip di luar jangkauan (9). Saya mengganti nama sheet dengan apa pun yang dapat saya pikirkan yang sudah ada di buku kerja. Tahu apa yang saya lakukan salah? Juga, apakah ada cara untuk membuatnya memberi nama setiap lembar secara bertahap? Ini akan terkait dengan pertanyaan Michael, saya yakin. Saya menduga jawaban atas pertanyaannya adalah Anda harus mengatur target Setelah ke "sheet"+x entah bagaimana dan itu pada gilirannya akan berlaku untuk pertanyaan saya jika ada cara untuk menentukan apa yang harus diberi nama sheet baru. Saya selalu dapat mengubah "master" bos saya menjadi "Agustus 0" atau bulan apa pun itu, tetapi akan lebih mudah baginya untuk memahami jika skrip melakukan penamaan secara otomatis.
Komentar ini diminimalkan oleh moderator di situs
terima kasih, kode vba sangat besar
Komentar ini diminimalkan oleh moderator di situs
Wow, terima kasih untuk kode VBA. Ini sangat membantu!
Komentar ini diminimalkan oleh moderator di situs
[quote]Menggunakan kode VBA, penamaan lembar kerja yang digandakan dalam urutan terbalik. Katakanlah saya membuat 10 salinan Sheet1, saya akan berakhir dengan Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......apakah mungkin untuk memilikinya dalam urutan normal?Oleh MichaelTadashi[/quote] Ada yang bisa jawab pertanyaan ini? Saya perlu membuat 72 salinan, tetapi akan diperlukan untuk mengurutkannya (1 hingga 72, bukannya 72 hingga 1) Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
[quote][quote]Menggunakan kode VBA, penamaan lembar kerja yang digandakan dalam urutan terbalik. Katakanlah saya membuat 10 salinan Sheet1, saya akan berakhir dengan Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......apakah mungkin untuk memilikinya dalam urutan normal?Oleh juan[/quote] Ada yang bisa jawab pertanyaan ini? Saya perlu membuat 72 salinan, tetapi akan diperlukan untuk mengurutkannya (1 hingga 72, bukannya 72 hingga 1) Terima kasih!Oleh MichaelTadashi[/quote]e] Jika Anda ingin salinan lembar berada dalam urutan berurutan alih-alih mundur, ubah baris berikut... Setelah:=ActiveWorkbook.Sheets("Lembar1") untuk ini... Setelah:=ActiveWorkbook.Sheets(Lembar Kerja. Hitungan) Kode lengkap saya tampak seperti berikut ini yang menggunakan 2 petunjuk InputBox untuk memungkinkan jumlah salinan dinamis dan nama lembar kerja .. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Berapa banyak salinan yang Anda butuhkan?") s = InputBox("Masukkan nama Worksheet yang ingin Anda salin") For numtimes = 1 Ke numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara mendapatkan nomor salinan terus menerus. Jika lembar yang ingin saya salin diberi nama I002, dan saya ingin yang berikutnya diberi nama I003,I004,I005 dan seterusnya.
Komentar ini diminimalkan oleh moderator di situs
Cari kata "Setelah" dan ubah menjadi "Sebelum". Ini akan membuat salinan dalam urutan yang benar "Sebelum" Sheet1. Satu-satunya hal yang perlu diingat adalah penomoran akan selalu dimulai dari (2) karena lembar asli akan selalu dihitung sebagai salinan pertama. Anda juga dapat mengganti "Sheet1" dengan nama tab yang Anda coba salin.
Komentar ini diminimalkan oleh moderator di situs
ya berhasil terima kasih Saya telah berhasil membuat banyak salinan dari satu lembar kerja di buku kerja yang sama dengan menggunakan kode vba terima kasih banyak.
Komentar ini diminimalkan oleh moderator di situs
cara menyalin dengan lebar kolom yang sama
Komentar ini diminimalkan oleh moderator di situs
Lebar kolom yang sama dengan Lembar Kerja asli atau Anda ingin semua lebar kolom sama?
Komentar ini diminimalkan oleh moderator di situs
Saya mendapat kesalahan yang sama dengan Theou dan sepertinya tidak ada yang mengatasinya. Tab saya sudah bernama PO 51, PO 52, dll. dan saya mengganti Sheet1 dengan PO 51 untuk menyalinnya dan mendapatkan kesalahan subskrip di luar jangkauan (9) Saya mengikuti kode Schuyler untuk mendapatkan urutan yang benar, tetapi saya masih mendapatkan kesalahan dan selalu karena dua baris ini: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
Komentar ini diminimalkan oleh moderator di situs
[quote]Saya mendapatkan kesalahan yang sama dengan Theou dan sepertinya tidak ada yang mengatasinya. Tab saya sudah bernama PO 51, PO 52, dll. dan saya mengganti Sheet1 dengan PO 51 untuk menyalinnya dan mendapatkan kesalahan subskrip di luar jangkauan (9) Saya mengikuti kode Schuyler untuk mendapatkan urutan yang benar, tetapi saya masih mendapatkan kesalahan dan selalu karena dua baris ini: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)Oleh Debbi[/quote] Bisakah Anda memasukkan kode lengkap Anda untuk memudahkan debug? "Kesalahan subskrip di luar jangkauan" biasanya berarti bahwa kode tersebut merujuk pada sesuatu yang tidak ada. Saya menemukan ini dalam kode saya sendiri ketika saya salah ketik atau semacamnya.
Komentar ini diminimalkan oleh moderator di situs
Saya mendapatkan kesalahan bahwa 'numtimes' tidak ditentukan...?
Komentar ini diminimalkan oleh moderator di situs
di mana saya akan memasukkan kode di atas ini di vba haruskah saya membuat tombol umum lalu di dalam ?? salam.
Komentar ini diminimalkan oleh moderator di situs
Ikuti langkah-langkah di bawah ini:
1. Salin kode di atas
2. Tahan tombol ALT + F11, dan itu akan membuka jendela Microsoft Visual Basic for Applications.
2. Klik Sisipkan > Modul, dan tempel kode berikut di Jendela Modul.
4. Kemudian tekan tombol F5 untuk menjalankan kode
5.Sebuah kotak prompt muncul untuk menanyakan jumlah lembar salinan yang Anda inginkan.
Komentar ini diminimalkan oleh moderator di situs
Ketika saya pertama kali mencobanya, saya mendapat pesan kesalahan karena saya tidak mengubah nama Sheet1. Setelah saya menyadari apa yang menyebabkan kesalahan, saya meneliti lebih jauh, karena saya tidak ingin memasukkan nama sheet secara manual ke dalam makro. Dan ketika saya membutuhkan fitur ini, hampir selalu untuk lembar saat ini. Saya menambahkan baris a = activesheet.name Dan merevisi baris setelah:=activeworkbook.sheets("sheet1") ke activeworkbook.sheets(a).copy _ Itu bekerja dengan sangat baik, tapi saya perhatikan penomorannya terbalik ... itu tidak mengganggu saya karena saya akan secara manual mengganti nama lembar baru. Ketika saya melihat posting Schuyler, saya merevisi lebih lanjut baris activeworkbook.sheets(a).copy _ menjadi after:=activeworkbook.sheets(worksheets.count) Saya sekarang puas dengan hasilnya. Makro saya yang sudah selesai: Sub copy() Dim x As Integer x = InputBox("Masukkan berapa kali untuk menyalin Sheet1") For numtimes = 1 To x ActiveWorkbook.Sheets("Sheet1").Copy _ After:=ActiveWorkbook.Sheets( Worksheets.Count) Sub Akhir Berikutnya --- Semua yang terbaik, Barry
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak Barry. Makro Anda yang sudah selesai adalah satu-satunya hal yang berhasil untuk saya.
Komentar ini diminimalkan oleh moderator di situs
saya mendapat kesalahan sintaks pada "After:=ActiveWorkbook.Sheets(Worksheets.Count)


tapi saya tidak tahu apa yang salah ... Bisakah Anda membantu saya?
Komentar ini diminimalkan oleh moderator di situs
Kode VBA yang fantastis - sangat membantu
Komentar ini diminimalkan oleh moderator di situs
Saya baru dalam hal ini, saya hanya mencoba membuat salinan dari lembar yang sama, ini adalah kode yang saya gunakan. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Berapa banyak salinan yang Anda butuhkan?") s = InputBox("Masukkan nama Worksheet yang ingin Anda salin") For numtimes = 1 Untuk numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub ketika saya menggunakan kode itu memberi saya kesalahan "Kesalahan Sintaks" maka teks ini berubah menjadi merah ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) dan teks is berubah menjadi kuning Sub Copier() apa yang dapat saya lakukan untuk memperbaikinya.
Komentar ini diminimalkan oleh moderator di situs
[quote]Saya baru dalam hal ini, saya hanya mencoba membuat salinan dari lembar yang sama, ini adalah kode yang saya gunakan. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Berapa banyak salinan yang Anda butuhkan?") s = InputBox("Masukkan nama Worksheet yang ingin Anda salin") For numtimes = 1 Untuk numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub ketika saya menggunakan kode itu memberi saya kesalahan "Kesalahan Sintaks" maka teks ini berubah menjadi merah ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) dan teks is berubah menjadi kuning Sub Copier() apa yang dapat saya lakukan untuk memperbaikinya.Oleh Tyler Dempsey[/quote] Periksa kembali kode Anda dan pastikan Anda tidak memiliki ruang kosong di ActiveWorkbook. Sheets(s).Copy _ atau di Sheets(Worksheets.Cou nt)
Komentar ini diminimalkan oleh moderator di situs
[quote]Saya baru dalam hal ini, saya hanya mencoba membuat salinan dari lembar yang sama, ini adalah kode yang saya gunakan. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Berapa banyak salinan yang Anda butuhkan?") s = InputBox("Masukkan nama Worksheet yang ingin Anda salin") For numtimes = 1 Untuk numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub ketika saya menggunakan kode itu memberi saya kesalahan "Kesalahan Sintaks" maka teks ini berubah menjadi merah ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) dan teks is berubah menjadi kuning Sub Copier() apa yang dapat saya lakukan untuk memperbaikinya.Oleh Tyler Dempsey[/quote] Berikut adalah kode persis yang ingin Anda gunakan: Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Berapa banyak salinan yang Anda butuhkan?") s = InputBox("Enter nama Worksheet yang ingin Anda salin") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Komentar ini diminimalkan oleh moderator di situs
Terima kasih, yang terakhir menyelamatkan hidupku :)
Komentar ini diminimalkan oleh moderator di situs
Kode Kerja

Sub Mesin Fotokopi()
Dim s Sebagai String
Dim numtimes Sebagai Integer
Dim numSalin Sebagai Integer
numCopies = InputBox("Berapa banyak salinan yang Anda butuhkan?")
s = InputBox("Masukkan nama Worksheet yang ingin Anda salin")
Untuk numtimes = 1 To numCopies
ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
Next
End Sub

salin seluruh baris dari ActiveWorkbook.Sheets ...... itu masalahnya, dan beberapa spasi

Semoga hari mu menyenangkan
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL