Memecah Sheet Excel Menjadi Beberapa File

Mungkin banyak yang belum tau ada cara mudah untuk memecah sheet-sheet yang ada di excel biar menjadi file baru. Jika sheet excel nya cuma ada 2 sampai 5 copy paste aja udah bisa bikin file baru dari sheet tersebut. Tapi jika sheet excel nya ada puluhan bahkan ratusan seperti yang saya alami pada saat KP (Kerja Praktek) mungkin kalian bisa muntah copy paste ratusan sheet tersebut.

Excel memiliki tools script VB yang disebut Macro. Nah, Macro ini dapat mengolah atau menjalankan logika dalam bentuk kode bahasa VB pada Microsoft Excel.

Langkah-langkah untuk memecah sheet excel menjadi file baru adalah :

• Klik Tab View, Macros, View Macros ()
• Setelah itu copy script berikut :

          

Sub namaMacro()

MyPath = ThisWorkbook.Path

For Each sht In ThisWorkbook.Sheets

sht.Copy

ActiveSheet.Cells.Copy

ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues

ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats

ActiveWorkbook.SaveAs _

Filename:=MyPath & "\" & sht.Name & ".xls"  //extention yg diinginkan

ActiveWorkbook.Close savechanges:=False

Next sht

End Sub

• Lalu kalian tinggal jalankan macro nya dan tunggu semua sheet excel kalian dipecah menjadi file baru.