Pisahkan lembar excel menjadi beberapa file berdasarkan kolom menggunakan vba

Dengan menggunakan VBA, Anda dapat memecah lembar kerja sumber menjadi beberapa file Excel berdasarkan nilai di kolom kunci yang dipilih, dan dengan melakukannya, data Anda akan tetap aman tanpa berbagi informasi yang tidak diinginkan secara berlebihan. Banyak solusi di luar sana mengandalkan addin pihak ke-3, memerlukan pembayaran untuk mengunduh perangkat lunak. Dengan VBA, ini gratis, dan Anda dapat memodifikasi skrip untuk memenuhi kebutuhan spesifik Anda


Belikan Saya Kopi?
PayPal Saya. https. // www. paypal. saya/jiejenn/5
Venmo. @ Jie-Jenn





Unduh file sumber → LINK

Unduh file terakhir → LINK


Kode Sumber (Diperbarui 30/12/2021)


39 Komentar
  1. Dan pada 09-06-2020 jam 12. 50 pagi

    Hi Jie,

    Saya ingin tahu betapa sulitnya membuat ulang latihan yang sama ini tetapi dengan tambahan 7 kolom dan menetapkannya ke folder milik (nama yang sama, diatur dengan hierarki yang sama)

    Terbaik,

  2. Tisa Jones pada 25-08-2020 jam 1. 52 pagi

    Penyelamat. terima kasih

    • jiejenn pada 24-08-2020 pukul 10. 13.00

      Senang naskah saya membantu

  3. Agata pada 07-10-2020 jam 7. 13.00

    Itu bagus dan menghemat banyak jam kerja manual

    Saya punya dua pertanyaan
    1. Dengan asumsi ada beberapa spreadsheet dalam file yang saya gunakan, dapatkah kode dimodifikasi untuk menyimpan file baru berdasarkan nilai kolom dalam satu lembar (seperti sekarang) tetapi juga menyimpan semua spreadsheet lain yang tidak berubah dalam file baru?

    2. Cara memodifikasi kode untuk membagi berdasarkan nilai dalam kolom tetapi juga menyalin semua baris di bawah tabel tidak berubah ke file baru

    Selamat menikmati kopi 🙂

    • jiejenn pada 07-10-2020 jam 4. 37 pagi

      Hai Agata, bisakah Anda mengirimi saya email ke YouTube@LearnDataAnalysis. org dengan pertanyaan Anda beserta file sampel menggambarkan masalahnya?

  4. Oliver Howton pada 31-10-2020 pukul 10. 25 pagi

    Ini Aku Hebat. Bagaimana cara menyesuaikan untuk menyimpannya sebagai File CSV?

    • Darlia A pada 17-12-2020 jam 9. 38 pagi

      Saya mengikuti tutorial dan dia masuk di “. xlsx” di bagian jadi mungkin ctrl + f dan ganti sebagai jenis file yang berbeda?

  5. PW Soh pada 28-12-2020 jam 5. 30 sore

    Hai

    Saya menyalin skrip dan menjalankannya tetapi kesalahan runtime “1004. Metode Clearcontents dari kelas Range gagal. Mengapa demikian dan bagaimana cara mengatasinya?

    Saya menyalin skrip ke file saya, tidak mengunduh file sumber

    • jiejenn pada 28-12-2020 pukul 1. 45 pagi

      “Hapus Konten”. C kedua dikapitalisasi

  6. J Stauder pada 10-02-2021 jam 7. 50 sore

    Sepertinya saya dapat menjalankan kode, dan file pembantu mencantumkan kategori yang saya harapkan. Namun, tidak ada file yang dibuat di folder keluaran saya. Ada saran? . Terima kasih sebelumnya

    • jiejenn pada 11-02-2021 jam 4. 45 pagi

      Apakah file Anda disimpan di One Drive?

      • K Foley pada 02-04-2022 jam 4. 48 pagi

        Halo Jie Jenn, saya mengalami masalah yang sama. File saya tidak disimpan di One Drive

  7. Geraint Davies pada 18-02-2021 jam 3. 48 pagi

    Ini sangat bagus dan sangat jelas untuk pemula seperti saya
    Pertanyaan singkat, JIKA kami ingin mempertahankan panjang kolom lembar kerja untuk lembar kerja yang dibuat, apa yang perlu saya tambahkan ke Makro?

    terima kasih

    • jiejenn pada 20-02-2021 jam 5. 13 pagi

      Bisakah Anda lebih spesifik?

  8. DJ pada 01-04-2021 jam 8. 43 pagi

    Hi Jie,

    Ini terlihat bagus. Saya sudah mencoba menjalankan tetapi file keluaran berisi semua data sumber daripada data yang difilter berdasarkan kategori yang dihasilkan di lembar bantuan. Ada ide apa yang saya lakukan salah?

    Terima kasih sebelumnya

    • Jack pada 29-04-2021 jam 5. 30 sore

      Punya masalah yang sama, saya menghapus semua pemformatan dari lembaran dan mengatur output ke drive lokal, bukan onedrive, berfungsi dengan baik setelah itu. semoga membantu

  9. Selamat pada 18-04-2021 pukul 10. 11 malam

    Hi Jie,

    Kode ini sangat membantu, dapatkah Anda menasihati saya bagaimana saya bisa menempelkan format pelukis ke lembar kerja baru juga?

    Pertanyaan kedua saya, jika saya memiliki buku kerja dengan 3 lembar kerja. Setiap lembar kerja memiliki kolom cabang
    Saya perlu memecah buku kerja menjadi beberapa buku kerja (setiap buku kerja dengan 3 lembar kerja) di cabang tertentu

  10. Andy Hydes pada 21-04-2021 jam 9. 13.00

    Sangat membuat frustrasi- Saya menonton tutorial dan menulis kode VBA, memeriksa kesalahan dan semuanya baik-baik saja, tetapi itu tidak akan membuat file individual 😦 Saya telah memeriksa referensi dan tidak dapat melihat masalah apa pun

    Memiliki lebih dari 330 file terpisah untuk dibuat jadi ini akan menghemat waktu tetapi harus memilahnya secara manual sekarang

  11. sos pada 27-04-2021 jam 6. 54 sore

    Hi Jie,

    terima kasih pertama untuk video dan kode. Saya sudah menjalankannya dan menghasilkan file tetapi file keluarannya kosong. Ada ide kenapa?

    Terima kasih, sayang

  12. batnyam pada 02-05-2021 jam 2. 22.00

    halo, saya punya masalah menggunakan VBA ini,

    kesalahan waktu proses 1004

    wbTarget. Simpan Sebagai Folder_Target & Nama_Kategori & “. xlsx”, 51

    • Ryan pada 26-08-2021 jam 4. 15:00

      Saya memiliki kasus yang sama dengan Anda, tetapi saya tidak dapat menyelesaikannya…;(

      • Sha Nay Jones pada 01-09-2021 jam 5. 35 pagi

        Saya menghapus Target_Folder dan menghapus kesalahan ini

        Untuk secara otomatis membuat tautan di Excel ke jalur, cukup simpan file master ke file yang sama dengan tempat Anda ingin menyimpan Buku Kerja baru

  13. Paragraf pada 09-05-2021 jam 9. 32 siang

    Hei Barang Hebat,

    hanya pertanyaan singkat bagaimana jika saya ingin menambahkan satu kategori lagi dengan yang ada, seperti misalnya mengambil contoh Anda, saat ini saya hanya mengambil "negara bagian" sebagai kategori tetapi bagaimana jika saya ingin memfilter "negara bagian" bersama dengan "Kota"

  14. deva pada 11-09-2021 pukul 1. 31 pagi

    Saya hanya menggunakan beberapa baris kode Anda dalam proyek saya dan berhasil bekerja. Terima kasih telah memposting kode berharga ini

  15. Robert Walters pada 23-09-2021 jam 9. 39 sore

    Bagaimana cara mengubah lembar sumber menjadi lembar aktif saya?

  16. kameyo pada 24-09-2021 jam 6. 25 pagi

    Ini luar biasa. Ini telah banyak membantu saya, tetapi saya akan membutuhkan lebih banyak bantuan jika memungkinkan

    Saya ingin memisahkan Dataset menggunakan kode Anda, tetapi file keluaran yang ingin saya beri nama selalu sama, terlepas dari nilai kolom

    Sebagai contoh. WB1. xlsx, WB2. xlsx, WB3. xlsx, dll. alih-alih menggunakan nilai unik kolom (dalam contoh Anda, nama negara bagian seperti AZ. xlsx, CA. xlsx,…) sebagai nama setiap file

    Bagaimana saya bisa mengedit kode Sumber Anda untuk melakukan ini?

  17. Tamara pada 24-11-2021 pukul 9. 35 sore

    Saya mendapatkan pesan debug dengan string teks berikut. Tolong bisakah Anda memberi saran?

    kol. Menambahkan. Sel(Nomor Baris, “A”). Nilai, CStr(. Sel(Nomor Baris, “A”). Nilai)
    Nomor Baris Berikutnya

  18. Roberto I pada 07-01-2022 jam 5. 11 pagi

    Ini sangat membantu dan saya berterima kasih karena Anda berbagi pengetahuan Anda dengan kami. Terima kasih banyak. Saya punya satu pertanyaan bagaimana saya bisa memasukkan beberapa lembar kerja dalam proses penyimpanan?

  19. Batool pada 27-01-2022 pukul 4. 45 sore

    Terima kasih banyak untuk berbagi pengetahuan Anda. Ini sangat membantu
    Saya ingin bertanya kepada Anda, bagaimana cara membagi data menjadi lembar terpisah di

  20. Eva pada 13-03-2022 jam 9. 45 pagi

    Hi Jie,

    tutorial dan kode VBA ini mengubah hidup. Terima kasih banyak untuk itu. Namun saya akan sangat membutuhkan satu modifikasi lagi, yang saya tidak tahu bagaimana melakukannya. Maukah Anda berbaik hati memberi saya panduan tentang cara mengubah kode jika Anda memiliki "header" yang terdiri dari 10 baris. Data saya dimulai pada baris 11, namun, di setiap file saya ingin menyimpan semua data header dari baris 1-10. Terima kasih

  21. Neil pada 18-03-2022 jam 11. 52 pagi

    Saya memiliki ini berfungsi tetapi saya juga ingin mengecualikan apa pun di kolom lain yang berisi '0'
    Misalnya QTY. Jadi hasil akhirnya hanya memberi saya baris dengan 1 atau lebih di kolom 'QTY'

  22. Dette pada 22-07-2022 pukul 12. 13.00

    Hai. Bisakah saya memverifikasi bagaimana cara mengubah nama file di VBA terkait dengan kode yang Anda berikan?

  23. Berani pada 27-08-2022 jam 2. 31 PM

    Video yang bagus, saya punya satu file CSV Besar yang menampung 12 Juta baris. Saya ingin membagi CSV ini menjadi beberapa file, setiap file akan menjadi 1 juta catatan

  24. Jon pada 04-09-2022 jam 10. 00 pagi

    Saya menjalankan Kode VBA itu membuat file terpisah, tetapi dengan semua data di semua folder. Saya tidak menyimpan di satu drive, tetapi ini adalah file jaringan. Juga jika itu penting, saya memiliki data saya di Power query

    • Luis pada 21-09-2022 jam 6. 14.00

      di 'Sub SplitWorksheet Pribadi (ByVal Category_Name Sebagai Varian)' alih-alih '. salin 'gunakan'. Sel Khusus(xlCellTypeVisible). Salinan'

  25. Conner pada 05-10-2022 pukul 12. 10 malam

    Ini menghemat jam kerja manual tim saya. Datang pada tenggat waktu dan alat mewah mengecewakan kami. Terima kasih banyak

    Bagaimana cara membagi data menjadi beberapa file Excel berdasarkan kolom di Excel?

    Cara membagi lembar Excel menjadi beberapa lembar kerja .
    Pada Langkah 1 pilih jangkauan Anda
    Pada Langkah 2 pilih satu atau lebih kolom kunci untuk pemisahan
    Pada Langkah 3 pilih tujuan untuk hasil tabel terpisah
    Pada Langkah 4 pilih opsi tambahan. nama lembar kerja, tajuk dan pemformatan

    Bagaimana cara membagi satu lembar Excel menjadi beberapa file berdasarkan nilai kolom?

    Untuk membagi rentang data menjadi beberapa lembar kerja tergantung kolom, harap pilih rentang terlebih dahulu. Kemudian, dengan memilih Beranda > Lembar Kerja > Pisahkan Data , gunakan alat.

    Bagaimana Anda membagi satu lembar Excel menjadi beberapa file VBA?

    Pastikan makro diaktifkan dan klik Control-Shift-S . Setelah pemisahan file selesai, makro akan mengembalikan lokasi file, jumlah baris dalam file, dan jumlah total file yang dibuat. Klik di sini untuk mengunduh versi terkompresi dari Pemecah Berkas Excel.