Ms. Excel - Memisah Worksheet menjadi file baru

Selamat datang.

Post ini akan membahas tentang bagaimana caranya memisah worksheet dari suatu workbook menjadi workbook baru secara terpisah sesuai dengan jumlah dan nama worksheet yang ada. Contoh seperti gambar.

Terdapat sebuah file excel yang berisi banyak sheet, dengan nama Sheet1 - Sheet20. Dalam kasusnya, user hendak memisah per-sheet menjadi file sendiri.

Split worksheet excel menjadi file baru

Langkah-langkah :

1. Buka file excel yang akan dipisah. Tekan dan tahan Alt+F11 pada keyboard.
2. Setelah muncul jendela Miscrosoft Visual Basic, pilih menu Insert, Module. Kemudian copy dan paste kode berikut pada isian module tadi.
   Sub Splitbook()

   'blog.rachmadbagus.com

   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
3. Menjalankan kode dengan menekan F5 pada keyboard. Cek dan bila perlu refresh juga folder pada dimana Anda menyimpan file asli sebelum displit.

Sebenarnya Anda juga dapat melakukannya secara manual tanpa harus menambahkan script dan menjalankan modulnya dengan cara menggunakan fitur move or copy ke new book. Tidak ribet, dan sangat memungkinkan jika sheet masih dalam hitungan jari. Tapi jika terdapat ratusan, bahkan ribuan sheet yang harus dipisah, cara menggunakan script diatas akan sangat membantu dan menghemat waktu.

Fitur move or copy

Demikian. Selamat mencoba :))
Sumber : https://www.extendoffice.com/documents/excel/628-excel-split-workbook.html