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

Bagaimana cara membagi buku kerja untuk memisahkan file Excel di Excel?

Anda mungkin perlu membagi buku kerja besar untuk memisahkan file Excel dengan menyimpan setiap lembar kerja buku kerja sebagai file Excel individual. Misalnya, Anda bisa membagi buku kerja menjadi beberapa file Excel individual lalu mengirimkan setiap file ke orang yang berbeda untuk menanganinya. Dengan melakukan itu, Anda bisa mendapatkan orang tertentu menangani data tertentu, dan menjaga data Anda tetap aman. Artikel ini akan memperkenalkan cara untuk membagi buku kerja besar untuk memisahkan file Excel berdasarkan setiap lembar kerja.

  1. Pisahkan buku kerja untuk memisahkan file Excel dengan menyalin dan menempel
  2. Pisahkan buku kerja untuk memisahkan File Excel dengan fitur Pindahkan atau Salin
  3. Pisahkan buku kerja untuk memisahkan file Excel dengan kode VBA
  4. Pisahkan buku kerja untuk memisahkan file Excel / PDF / CSV / TXT dengan Kutools for Excel dengan mudah

Pisahkan buku kerja untuk memisahkan file Excel dengan menyalin dan menempel

Biasanya, menggunakan Copy perintah dan pasta perintah dapat menyimpan buku kerja sebagai file Excel terpisah secara manual. Pertama, pilih seluruh lembar kerja yang ingin Anda simpan sebagai file terpisah, buat buku kerja baru, lalu tempelkan di buku kerja baru, pada akhirnya menyimpannya.

Ini adalah cara yang mudah digunakan jika Anda hanya perlu membagi beberapa lembar kerja sebagai file terpisah. Namun, harus memakan waktu dan membosankan untuk membagi banyak lembar kerja dengan menyalin dan menempel secara manual.


Pisahkan buku kerja untuk memisahkan File Excel dengan fitur Pindahkan atau Salin

Metode ini akan memperkenalkan fitur Pindahkan atau Salin untuk memindahkan atau menyalin lembar yang dipilih ke buku kerja baru dan menyimpannya sebagai buku kerja terpisah. Harap lakukan sebagai berikut:

1. Pilih lembar di bilah tab Lembar, klik kanan, dan pilih Pindahkan atau Salin dari menu konteks. Lihat tangkapan layar:

Note: Memegang Ctrl kunci, Anda dapat memilih beberapa lembar yang tidak berdekatan dengan mengkliknya satu per satu di bilah tab Lembar; memegang perubahan kunci, Anda dapat memilih beberapa lembar yang berdekatan dengan mengklik yang pertama dan yang terakhir di bilah tab Lembar.

2. Dalam dialog Pindahkan atau Salin, pilih (buku baru) dari Untuk memesan daftar drop-down, periksa Buat salinan pilihan, dan klik OK tombol. Lihat tangkapan layar:

3. Sekarang semua lembar yang dipilih disalin ke buku kerja baru. Klik File > Save untuk menyimpan buku kerja baru.

Pisahkan buku kerja dengan cepat untuk memisahkan file Excel / PDF / TXT / CSV di Excel

Biasanya kami dapat membagi buku kerja menjadi file Excel individual dengan Pindahkan atau Salin fitur di Excel. Tapi Kutools for Excel's Pisahkan Buku Kerja utilitas dapat membantu Anda dengan mudah membagi buku kerja dan menyimpan setiap lembar kerja sebagai file PDF / TEXT / CSV terpisah atau buku kerja di Excel.


excel buku kerja split iklan

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

Pisahkan buku kerja untuk memisahkan file Excel dengan kode VBA

Kode VBA berikut dapat membantu Anda dengan cepat membagi beberapa lembar kerja buku kerja saat ini untuk memisahkan file Excel, lakukan hal berikut:

1. Buat folder baru untuk buku kerja yang ingin Anda pisahkan, karena file Excel yang terpisah akan tetap berada di folder yang sama dengan buku kerja master ini.

2. Tahan ALT + F11 kunci di Excel, dan itu membuka file Microsoft Visual Basic untuk Aplikasi jendela.

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

VBA: Pisahkan buku kerja menjadi beberapa buku kerja dan simpan di folder yang sama

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. Tap F5 kunci untuk menjalankan kode ini. Dan buku kerja dipisahkan untuk memisahkan file Excel di folder yang sama dengan buku kerja asli. Lihat tangkapan layar:

Note: Jika salah satu sheet memiliki nama yang sama dengan workbook, VBA ini tidak dapat berfungsi.

Pisahkan buku kerja untuk memisahkan file Excel / PDF / CSV / TXT dengan Kutools for Excel dengan mudah

Jika Anda memiliki Kutools untuk Excel terpasang, itu Pisahkan Buku Kerja alat dapat membagi beberapa lembar kerja sebagai file Excel terpisah dengan mudah dan cepat hanya dengan beberapa klik.

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. Setelah menginstal Kutools untuk Excelklik Kutools Plus > Pisahkan Buku Kerja , lihat tangkapan layar:

2. di Pisahkan Buku Kerja kotak dialog, lakukan operasi berikut:
(1) Semua nama lembar kerja dicentang secara default. Jika Anda tidak ingin membagi beberapa lembar kerja, Anda dapat menghapus centangnya;
(2) Periksa Simpan satu jenis pilihan;
(3) Dari Save as type drop down, pilih satu jenis file yang ingin Anda pisahkan dan simpan.
(4) Lalu klik Split .

Note: Jika Anda ingin menghindari pemisahan lembar kerja yang tersembunyi atau kosong, Anda dapat memeriksa Lewati lembar kerja tersembunyi or Lewati lembar kerja kosong kotak.

3. Dalam dialog Browse For Folder, tentukan folder tujuan untuk menyimpan file terpisah, dan klik OK .

Sekarang lembar kerja yang dicentang disimpan sebagai buku kerja baru yang terpisah. Setiap buku kerja baru diberi nama dengan nama lembar kerja asli. Lihat tangkapan layar:

Kutools untuk Excel's Pisahkan Buku Kerja alat ini memudahkan untuk membagi buku kerja aktif menjadi file Excel individual (satu file berisi satu lembar kerja), file CSV, file TXT, atau file PDF sesuai kebutuhan. Anda dapat mengatur untuk melewati semua lembar kerja kosong dan tersembunyi. Dapatkan Uji Coba Gratis!


Demo: Pisahkan atau simpan setiap lembar kerja dari satu buku kerja sebagai file excel / txt / csv / pdf terpisah


Kutools untuk Excel mencakup lebih dari 300 alat praktis untuk Excel, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan Uji Coba Gratis Sekarang!

Artikel terkait:


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 (112)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki data dalam 4 lembar berbeda. Sheet1 dinamai "A", Sheet2 dinamai "B", Sheet3 dinamai "C" dan Sheet4 dinamai "D". Perlu membagi data menjadi buku kerja yang berbeda dan setiap lembar harus memiliki hanya 25 baris. Nama file harus diberi nama sebagai Sheet1 A.xls, Sheet2 A.xls jika data disalin dari Lembar A. Setelah Lembar A menjadi kosong, itu harus menyalin data dari Lembar B dan harus melanjutkan nomor Lembar dari yang terakhir misalnya Lembar3 B.xls.
Komentar ini diminimalkan oleh moderator di situs
Ketika saya "Membagi buku kerja untuk memisahkan file Excel dengan kode VBA" itu berfungsi seperti mimpi tetapi tidak terus memformat seperti sel yang digabungkan dan penyelarasan sel di spreadsheet baru. Apakah ada sesuatu yang bisa saya tambahkan sehingga formatnya tetap sama seperti aslinya?
Komentar ini diminimalkan oleh moderator di situs
Kode bekerja seperti pesona! Ya, tidak semua pemformatan disimpan. Tidak masalah. Bagi saya, semua sel yang digabungkan dalam sebuah tabel menjadi tidak digabungkan. Itu adalah hal yang sederhana untuk memilih tabel asli, pelukis format, sorot tabel yang disalin, dan voila, bagus seperti baru. Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Kolom A Alamat IP Kolom B Nama IP Kolom C IP Ping Rate Benar (Itu adalah perintah Ping Status) Kolom D IP Pinging Rate Salah (Itu adalah perintah Ping Status) Daftar nama ip dan ip ini ke format excel & status adalah format excel yang sama ( yang benar atau salah Status)
Komentar ini diminimalkan oleh moderator di situs
Kode luar biasa - menyelamatkan hari untuk saya. Terima kasih telah memposting.
Komentar ini diminimalkan oleh moderator di situs
Saya mengalami masalah saat menambahkan kode untuk menyimpan file split sebagai ReadOnly. Mengapa ini tidak berhasil atau bagaimana saya melakukannya? Sub Splitbook() MyPath = ThisWorkbook.Path Untuk Setiap sht Di ThisWorkbook.Sheets sht.Copy ActiveSheet.Cells.Copy ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues ​​ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats ActiveWorkbook.SaveAs MyPath & "\" & sht.Name & ".xls", Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, ActiveWorkbook.Tutup savechanges:=False Next sht End Sub
Komentar ini diminimalkan oleh moderator di situs
Fasilitas yang benar-benar luar biasa .., luar biasa ... wow..
Komentar ini diminimalkan oleh moderator di situs
Skrip yang luar biasa. Ini berfungsi untuk saya seperti apa pun. Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Skrip yang berguna, tetapi saya sedang mencari langkah lebih lanjut, untuk memilih sendiri kriteria dari excel dan mengisi secara otomatis menjadi beberapa file
Komentar ini diminimalkan oleh moderator di situs
Terima kasih metode 1 sangat berguna
Komentar ini diminimalkan oleh moderator di situs
Terima kasih! Menyelamatkan saya banyak upaya manual!
Komentar ini diminimalkan oleh moderator di situs
Instruksi VBA "tepat"! ... bahkan untuk pemula! Bekerja dengan baik!
Komentar ini diminimalkan oleh moderator di situs
Sangat berguna! Terima kasih telah berbagi
Komentar ini diminimalkan oleh moderator di situs
Sangat membantu!!! sangat mudah dan bermanfaat :-)
Komentar ini diminimalkan oleh moderator di situs
Menggunakan ini dan itu berhasil. Hanya apa yang saya butuhkan. terima kasih
Komentar ini diminimalkan oleh moderator di situs
Bekerja dengan baik, terima kasih. Saya telah membuat ini sebagai add-in dan menginstalnya. Bagaimana saya sekarang menjalankannya kapan pun saya mau (tanpa harus menyalin dan menempel setiap kali)? Apakah ada tombol yang saya tekan atau nama fungsi yang saya gunakan?
Komentar ini diminimalkan oleh moderator di situs
Menampilkan kesalahan di baris 8.... xws cpy adalah kesalahan
Komentar ini diminimalkan oleh moderator di situs
Ini bekerja untuk saya setelah saya menghapus Option Explicit, jadi variabelnya perlu didefinisikan. Namun, saya ingin tahu variabel ini harus didefinisikan sebagai apa, karena saya menghargai opsi Option Explicit :)
Komentar ini diminimalkan oleh moderator di situs
Kode ini & KUtools keduanya menunjukkan kesalahan setelah mengonversi 222 file & setelah 222 file keduanya berhenti berfungsi.
Komentar ini diminimalkan oleh moderator di situs
Dear Sir, Bisakah Anda mengirimkan saya detail bagaimana coding untuk membagi s
Komentar ini diminimalkan oleh moderator di situs
Anda dapat mengikuti pengkodean di bawah ini. Pengodean VBA untuk lembar terpisah Alt+f11 Insert-module-f5 Sub Splitbook() 'Updateby20140612 Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False Untuk Setiap xWs Dalam ThisWorkbook.Sheets xWs.Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Komentar ini diminimalkan oleh moderator di situs
Lembar kerja adalah produk dari laporan tabel pivot, file baru yang dibuat oleh kode masih mempertahankan koneksi ke sumber data dan dapat diubah. dapatkah kode dilakukan untuk memutuskan koneksi tabel pivot, atau menambahkan salinan semua setiap lembar & masa lalu sebagai nilai untuk menghilangkan koneksi?
Komentar ini diminimalkan oleh moderator di situs
Dear Mr Sanjay, saya mencoba dengan kode yang hanya berfungsi untuk beberapa lembar tetapi file yang saya coba bagi memiliki hampir 466 lembar. Bolehkah saya tahu kode-kodenya? Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Dapatkah saya menyimpan skrip modul Anda ke Buku Kerja Makro PRIBADI untuk penggunaan di masa mendatang?
Komentar ini diminimalkan oleh moderator di situs
Bisakah Anda memberi tahu saya bagaimana saya bisa mengirim email massal dengan lampiran yang dipersonalisasi di Outlook.. Hormat, Yasir
Komentar ini diminimalkan oleh moderator di situs
Hai Yasir, Anda tidak dapat mengirim lampiran yang dipersonalisasi di gabungan surat dengan pandangan. Ya, hanya ada sedikit alat eksternal tetapi ini sangat mahal juga tidak dapat diandalkan. Anda dapat melakukannya dengan Mozilla Thunderbird. Hanya perlu mengunduh add-on gabungan surat & Anda dapat melakukan ini.
Belum ada komentar yang diposting di sini
Muat Lebih
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