Kata kunci. split bergabung membelah bergabung dengan file hjsplit hacha split splitter kompres kompresi cadangan zip bergabung joiner transportasi menyimpan data biner Show
Pisahkan file apa pun menjadi file yang lebih kecil (potongan), nanti Anda dapat menggabungkan potongan yang dihasilkan untuk merekonstruksi file asli menggunakan alat Gabung file Jika Anda memiliki buku kerja Excel dengan banyak lembar kerja, tidak ada cara mudah untuk membagi setiap lembar ini menjadi file Excel terpisah dan menyimpannya secara terpisah Ini mungkin diperlukan saat Anda menggunakan sheet untuk bulan atau wilayah atau produk/klien yang berbeda dan Anda ingin segera mendapatkan buku kerja terpisah untuk setiap sheet (sebagai file Excel atau sebagai PDF) Meskipun ada cara manual untuk membagi lembar menjadi buku kerja terpisah dan kemudian menyimpannya, itu tidak efisien dan rawan kesalahan. Dalam tutorial ini, saya akan memberi Anda kode VBA sederhana yang dapat Anda gunakan untuk dengan cepat (dalam beberapa detik) membagi semua lembar kerja menjadi file terpisah mereka sendiri dan kemudian menyimpannya di folder tertentu. Tutorial ini Mencakup Pisahkan Setiap Lembar Kerja Menjadi File Excel TerpisahMisalkan Anda memiliki buku kerja seperti yang ditunjukkan di bawah ini di mana Anda memiliki lembar kerja untuk setiap bulan Untuk membagi lembar ini menjadi file Excel terpisah, Anda dapat menggunakan kode VBA di bawah ini 'Code Created by Sumit Bansal from trumpexcel.com Sub SplitEachWorksheet() Dim FPath As String FPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each ws In ThisWorkbook.Sheets ws.Copy Application.ActiveWorkbook.SaveAs Filename:=FPath & "\" & ws.Name & ".xlsx" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Ada beberapa hal yang perlu Anda pastikan sebelum menggunakan kode VBA di atas
Setelah Anda selesai melakukannya, Anda dapat memasukkan kode VBA di atas ke dalam file dan menjalankan kode tersebut Kode di atas ditulis sedemikian rupa sehingga mengambil lokasi folder menggunakan jalur file (di mana kode dijalankan). Inilah mengapa penting untuk menyimpan file di folder terlebih dahulu dan kemudian menggunakan kode ini Bagaimana cara kerja kode VBA – Kode di atas menggunakan loop For Next sederhana yang melewati setiap lembar kerja, membuat salinan lembar kerja di buku kerja Excel, lalu menyimpan buku kerja Excel ini di folder yang ditentukan (yang sama dengan yang dimiliki Di bawah ini adalah langkah-langkah untuk menempatkan kode VBA ini di buku kerja Excel (ini akan sama untuk semua metode lain yang ditampilkan dalam tutorial ini) Di mana harus meletakkan kode ini? Di bawah ini adalah langkah-langkah untuk menempatkan kode di Editor Visual Basic agar dapat dieksekusi
Langkah-langkah di atas akan langsung membagi lembar kerja menjadi file Excel terpisah dan menyimpannya. Hanya perlu satu detik jika Anda memiliki lebih sedikit lembar kerja. Jika Anda memiliki banyak, mungkin perlu waktu Nama setiap file yang disimpan sama dengan nama sheet yang ada di file utama Karena Anda telah menempatkan kode VBA di buku kerja Excel, Anda harus menyimpannya dengan a. Format XLSM (yang merupakan format berkemampuan makro). Ini akan memastikan makro disimpan dan berfungsi saat Anda membuka file ini selanjutnya Perhatikan bahwa saya telah menggunakan baris Application. Pembaruan Layar = Salah dan Aplikasi. DisplayAlerts = Salah dalam kode sehingga semuanya terjadi di backend dan tidak melihat sesuatu terjadi di layar Anda. Setelah kode berjalan dan memisahkan sheet dan menyimpannya, kami mengembalikannya ke TRUE Sebagai praktik terbaik, disarankan untuk membuat salinan cadangan dari file utama (yang berisi lembaran yang ingin Anda bagi). Ini akan memastikan Anda tidak kehilangan data jika terjadi kesalahan atau jika Excel memutuskan untuk menjadi lambat atau macet Pisahkan Setiap Lembar Kerja dan Simpan sebagai PDF TerpisahJika Anda ingin membagi lembar kerja dan menyimpannya sebagai file PDF alih-alih file Excel, Anda dapat menggunakan kode di bawah ini 'Code Created by Sumit Bansal from trumpexcel.com Sub SplitEachWorksheet() Dim FPath As String FPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each ws In ThisWorkbook.Sheets ws.Copy Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath & "\" & ws.Name & ".xlsx" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub_ Hal-hal yang perlu Anda pastikan sebelum menggunakan kode ini
Kode di atas membagi setiap lembar dalam file Excel dan menyimpannya sebagai PDF di folder yang sama tempat Anda menyimpan file Excel utama Pisahkan Hanya Lembar Kerja yang Berisi Kata/Frasa menjadi File Excel TerpisahJika Anda memiliki banyak lembar dalam buku kerja dan Anda hanya ingin membagi hanya lembar yang memiliki teks tertentu di dalamnya, Anda juga dapat melakukannya Misalnya, Anda memiliki file Excel di mana Anda memiliki data selama beberapa tahun dan setiap lembar dalam file tersebut memiliki nomor tahun sebagai awalan. Sesuatu seperti yang ditunjukkan di bawah ini Sekarang, katakanlah Anda ingin membagi semua lembar untuk tahun 2020 dan menyimpannya sebagai file Excel terpisah. Untuk melakukan ini, Anda perlu memeriksa nama setiap lembar kerja dan hanya lembar yang memiliki nomor 2020 yang harus dipisah dan disimpan, dan sisanya tidak boleh disentuh. Ini dapat dilakukan dengan menggunakan kode makro VBA berikut 'Code Created by Sumit Bansal from trumpexcel.com Sub SplitEachWorksheet() Dim FPath As String Dim TexttoFind As String TexttoFind = "2020" FPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each ws In ThisWorkbook.Sheets If InStr(1, ws.Name, TexttoFind, vbBinaryCompare) <> 0 Then ws.Copy Application.ActiveWorkbook.SaveAs Filename:=FPath & "\" & ws.Name & ".xlsx" Application.ActiveWorkbook.Close False End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Dalam kode di atas, saya menggunakan variabel TexttoFind, yang telah ditetapkan ke "2020" di awal Kode VBA kemudian menggunakan loop For Next di VBA untuk melewati setiap lembar kerja dan kemudian memeriksa nama setiap lembar kerja fungsi INSTR. Fungsi ini memeriksa apakah nama lembar kerja memiliki kata 2020 di dalamnya atau tidak. Jika ya, itu akan mengembalikan nomor posisi di mana ia menemukan teks ini (yaitu 2020 dalam kasus ini) Dan jika tidak menemukan teks yang kita cari, itu mengembalikan 0 Ini digunakan dengan kondisi IF Then. Jadi jika nama sheet memiliki string teks 2020 di dalamnya, itu akan dipisah dan disimpan sebagai file terpisah. Dan jika tidak memiliki string teks ini, kondisi IF tidak akan terpenuhi dan tidak akan terjadi apa-apa Anda mungkin juga menyukai tutorial Excel berikut ini
BUKU EXCEL GRATIS Dapatkan 51 Ebook Tips Excel untuk meningkatkan produktivitas Anda dan menyelesaikan pekerjaan lebih cepat
Nama Surel YA - KIRIM SAYA EBOOK 6 pemikiran pada “Membagi Setiap Lembar Excel Menjadi File Terpisah (Langkah-demi-Langkah)”
|