Menggabungkan file Excel menjadi 1 sheet

Home » Blog » Software » Cara menggabungkan beberapa file Excel menjadi satu file

Anda memiliki banyak file Excel dan ingin menggabungkan menjadi satu?

Mungkin anda ingin menggabungkan beberapa laporan harian menjadi satu file laporan bulanan. Atau anda ingin menggabungkan laporan penjualan tiap daerah menjadi satu file laporan.

Ada banyak cara untuk menggabungkan beberapa file Excel menjadi satu file. Jika file yang akan anda gabungkan tidak banyak, anda bisa melakukannya dengan cara manual. Anda bisa melakukan dengan cara “Copy & Paste” isi dokumen, “Move or Copy” sheet dan lain sebagainya.

Jika anda akan menggabungkan banyak file, cara tercepat adalah dengan menggunakan Macro VBA.

Menggabungkan banyak file Excel menjadi satu

1. Buat file Excel baru.
2. Tekan (Alt + F11) untuk membuka Visual Basic Editor.
3. Setelah jendela Visual Basic Editor terbuka, kemudian klik “ThisWorkbook > Insert > Module”.

1. Kemudian salin script Macro berikut ini

Sub MergeExcelFiles()
    Dim fnameList, fnameCurFile As Variant
    Dim countFiles, countSheets As Integer
    Dim wksCurSheet As Worksheet
    Dim wbkCurBook, wbkSrcBook As Workbook
 
    fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True)
 
    If (vbBoolean  VarType(fnameList)) Then
 
        If (UBound(fnameList) > 0) Then
            countFiles = 0
            countSheets = 0
 
            Application.ScreenUpdating = False
            Application.Calculation = xlCalculationManual
 
            Set wbkCurBook = ActiveWorkbook
 
            For Each fnameCurFile In fnameList
                countFiles = countFiles + 1
 
                Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile)
 
                For Each wksCurSheet In wbkSrcBook.Sheets
                    countSheets = countSheets + 1
                    wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count)
                Next
 
                wbkSrcBook.Close SaveChanges:=False
 
            Next
 
            Application.ScreenUpdating = True
            Application.Calculation = xlCalculationAutomatic
 
            MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files"
        End If
 
    Else
        MsgBox "No files selected", Title:="Merge Excel files"
    End If
End Sub

Sumber: ablebits.com

1. Kemudian klik tombol “Run” untuk memulai menggabung.

1. Selanjutnya pilih file Excel yang ingin anda gabung. Kemudian klik “Open”.

1. Tunggu proses sampai selesai.

Cara Menggabungkan Beberapa File Excel menjadi Satu File Excel - Selamat malam sobat ketutrare, bagaimana kabar sobat semua ? semoga selalu dalam keadaan sehat dan suskses. Kali ini kita akan membahas tutorial Microsoft Excel. Yang akan kita bahas adalah bagaimana cara kita menggabungkan 2 (dua) file excel atau lebih menjadi satu file excel dengan mudah.

Jadi gambaran singkatnya, misalnya kita punya 2 file excel dengan masing-masing terdapat dua sheet (sheet 1 dan 2). Jadi akan ada 4 sheet totalnya dari workbook excel. Sehingga dengan tutorial kali ini kita akan gabungkan kedua file excel tersebut menjadi satu file excel yang didalamnya menjadi 4 sheet. Mari kita mulai tutorialnya.

Sebelumnya, kita siapkan dua file excel atau lebih. Selanjutnya kita berikan kedua file tersebut nama sesuai keinginan. Sobat perhatikan juga pada penamaan sheetnya. Usahakan tidak sama ya sobat, agar lebih mudah melihat perbedaanya.

Langkah Pertama , Ada dua cara yang akan kita coba, pertama dengan menggunakan " Move or Copy... ". Menu ini dapat sobat akses dengan cara klik kanan pada sheet excel. Berikut ini caranya. Misalnya kita buka dua file (disini saya beri nama HELLOIT1 dan HELLOIT2).

Di HELLOIT1.xls ada dua sheet yaitu HELLO IT 1 dan HELLO IT 2. Kemudian di HELLOIT2.xls ada dua sheet yaitu HELLO IT 3 dan HELLO IT 4. Kita akan copy sheet HELLO IT 3 dan HELLO IT 4 ke file HELLOIT1.xls.

Pada gambar di atas, yg kiri adalah file HELLOIT2 dan yang kanan adalah HELLOIT1. Jadi akan kita copy sheetnya.

1. Klik kanan pada sheet HELLO IT 3
2. Pilih Move or Copy...
3. Lakukan seperti gambar di bawah ini..

Selanjutnya akan muncul tampilan popup seperti berikut.

langkah untuk mengcopy sheet

Langkahnya,

1. Sobat klik pada To book : pada bagian panah (ditunjukkan pada langkah copy 1) dan pilih HELLOIT1 (sebagai tujuan pengcopyan sheet).
2. Kemudian sobat klik (move to end) yang artinya sobat akan mengcopynya pada setelah sheet HELLO IT 2.
3. Selanjutnya centang pada Create a copy (langkah copy 3).
4. Kemudian sobat klik OK
5. dan sheet HELLO IT 3 akan tercopy ke file HELLOIT1.xls. 
6. Lakukan langkah ini lagi untuk sisa sheet yang lainnya.

Setelah semua sheet sobat copy, berikut ini adalah hasilnya. Sesuaikan dengan hasil yang sobat dapatkan pada laptop / pc sobat ya.

Langkah Kedua, kita akan menggunakan Microsoft Visual Basic for Applications di excel. Ini adalah salah satu fitur pada microsoft excel. Pertama kita buka sebuah file excel baru (new workbook). Selanjutnya kita tekan Alt + F11 pada keyboard dan akan muncul tampilan dari microsoft visual basic, seperti gambar berikut.

Selanjutnya sobat klik menu "Insert" kemudian klik "Module". Seperti pada gambar di bawah ini.

Pada jendela Book 1, sobat bisa mengetikkan code. Codenya adalah seperti di bawah ini.

Sub GetSheets()
Ketutrare - Hello IT Channel
Path = ""
Filename = Dir(Path & "*.xlsx")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub

Sobat perhatikan pada baris ke 3 di code, yaitu Path = "". Pada bagian ini, sobat isikan lokasi file microsoft excel sobat dan isikan di antara tanda petik. Misalnya pada contoh gambar di atas, lokasi path menjadi Path="C:\Users\USER\Desktop\EXCELC\CARA 2\" dan jangan lupa menutup dengan \ .

Jika sudah jelas, sobat bisa mengklik tanda Run (seperti panah play berwarna hijau) atau tekan F5 pada keyboard untuk eksekusi code. Dan akan muncul popup seperti gamabr di bawah ini.

Sobat perhatikan pada popup, tertulis "want to save your changes to "HelloIT1.xlsx"?". Jika sobat ingin mengsave pada halaman ini, sobat bisa klik Save. Jika tidak klik Don't Save, dan akan muncul popup kembali dan menanyakan "want to save your changes to "HelloIT2.xlsx"?". Jadi sesuaikan dimana sobat akan menjadikan satu filenya.

Kemudian sobat lihat kembali pada file excel baru yang sobat buat sebelumnya (new workbook). Pada file excel tersebut akan tercopy setiap sheet yang ada pada HELLOIT1 dan HELLOIT2. Jadi sobat bisa simpan file ini, atau simpan pada langkah saat popup muncul.

Perbedaanya pada pengcopyan data dengan Move or Copy tidak ada Sheet 1 seperti pada gambar di atas. Jika menggunakan Microsoft Visual Basic for Applications, Sheet 1 sebelumnya dari file excel baru tersebut tetap ada dan bisa kita hapus. Kemudian perbedaan lainnya adalah dengan Microsoft Visual Basic for Applications, kita bisa menyatukan file lebih cepat daripada Move or Copy. Dengan kedua metode ini, kita dapat menggabungkan banyak file excel menjadi satu file excel.

Untuk sobat ketutrare yang ingin menonton video detailnya berikut disertakan linknya. Klik Like, Share, Comment, dan Suscribe untuk support HELLO IT Channel semakin rajin upload videonya. Terimakasih, salam ketutrare.

Link Video | HELLO IT Channel

Bagaimana cara menggabungkan sheet excel menjadi satu file?

Bagaimana cara menggabungkan file Word dan Excel?

Rumus apa saja yang ada di excel?