Cara Gabung File Excel Otomatis dengan VBA Macro Beserta Langkah-langkahnya

Mengelola banyak file Excel bisa menjadi pekerjaan yang melelahkan, apalagi jika kita harus menggabungkan semua file tersebut ke dalam satu file secara manual. Tapi tenang, kamu tidak perlu lagi copy-paste satu per satu! Di artikel ini, kita akan membahas cara gabung file Excel otomatis menggunakan script VBA macro, lengkap dengan berbagai fitur yang bisa kamu sesuaikan.

Metode ini sangat cocok untuk kamu yang bekerja di bidang data entry, keuangan, administrasi, atau siapa saja yang sering berkutat dengan banyak file Excel. Yuk simak langkah-langkahnya sampai akhir dan jangan lupa salin script-nya juga ya!

Kenapa Perlu Menggabungkan File Excel?

Sebelum masuk ke teknis, ada baiknya kita pahami dulu kenapa penting tahu cara gabung file Excel:

• Menghemat waktu (otomatis, tidak perlu buka file satu per satu)
• Menghindari kesalahan copy-paste manual
• Praktis untuk laporan mingguan/bulanan dari banyak sumber
• Lebih mudah diolah kembali (filter, pivot, analisis, dll)

Fitur Unggulan Script VBA Ini

Script cara gabung file Excel yang akan kamu gunakan ini punya banyak keunggulan, antara lain:

• Menggabungkan semua file Excel dalam satu folder ke satu sheet gabungan
• Menambahkan jeda 1 baris kosong antar data dari masing-masing file
• Menempatkan hasil mulai dari sel B2, bukan dari A1
• Bisa digunakan untuk file Excel dengan ekstensi .xls, .xlsx, atau .xlsm
• Bisa dijalankan berulang kali dengan folder berbeda
• Mengabaikan file kosong atau file tanpa data
• Praktis dan fleksibel untuk berbagai jenis data
• Tidak mengganggu file sumber karena hanya membaca (ReadOnly)

Langkah-Langkah Cara Gabung File Excel dengan VBA Macro

Berikut ini adalah panduan lengkap cara gabung file Excel otomatis:

1. Siapkan Folder File Excel

Kumpulkan semua file Excel yang ingin digabung dalam satu folder. Tidak masalah jika file memiliki ukuran atau jumlah baris yang berbeda-beda.

2. Buka Excel Baru

Buka Microsoft Excel, buat file baru sebagai file induk untuk menampung hasil gabungan di luar folder yang berisi file yang akan kita gabung.

3. Masuk ke Editor VBA

Tekan Alt + F11 untuk membuka VBA Editor, kemudian klik menu Insert ➜ Module.

4. Salin Script Berikut

Sub GabungkanMulaiDariB2()

    Dim folderPath As String
    Dim fileName As String
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim lastRowDest As Long
    Dim rngToCopy As Range

    ' Pilih folder berisi file Excel
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Pilih folder berisi file Excel yang akan digabung"
        If .Show <> -1 Then Exit Sub
        folderPath = .SelectedItems(1) & "\"
    End With

    ' Hapus sheet "Gabungan" jika sudah ada
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("Gabungan").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0

    ' Tambahkan sheet baru untuk hasil gabungan
    Set wsDest = ThisWorkbook.Sheets.Add
    wsDest.Name = "Gabungan"

    Application.ScreenUpdating = False

    fileName = Dir(folderPath & "*.xls*") ' Ambil semua file Excel

    Do While fileName <> ""

        Debug.Print "Membuka file: " & fileName
        Set wbSource = Workbooks.Open(folderPath & fileName, ReadOnly:=True)
        Set wsSource = wbSource.Sheets(1)

        If Application.WorksheetFunction.CountA(wsSource.UsedRange) > 0 Then

            Set rngToCopy = wsSource.UsedRange

            ' Cek baris terakhir di kolom B
            If wsDest.Cells(2, 2).Value = "" Then
                lastRowDest = 2 ' mulai dari B2
            Else
                lastRowDest = wsDest.Cells(wsDest.Rows.Count, 2).End(xlUp).Row + 2 ' +2 untuk baris kosong
            End If

            ' Salin data ke kolom B mulai baris terakhir
            rngToCopy.Copy Destination:=wsDest.Cells(lastRowDest, 2)

        Else
            Debug.Print "Tidak ada data di file: " & fileName
        End If

        wbSource.Close SaveChanges:=False
        fileName = Dir()

    Loop

    Application.ScreenUpdating = True
    MsgBox "? Selesai! Semua data berhasil digabung ke sheet 'Gabungan', mulai dari B2 dengan jeda antar file."

End Sub

Berikut penampakannya di VBA Editor:

5. Jalankan Makro

Kembali ke Excel, tekan Alt + F8, pilih GabungkanMulaiDariB2, lalu klik Run. Pilih folder tempat file-file kamu berada, dan biarkan script bekerja otomatis.

Dan berikut adalah hasil akhirnya:

Tips Tambahan

Dari script VBA cara gabung file Excel ini:

• Kamu bisa mengedit script ini jika ingin menggabungkan hanya sheet tertentu.
• Bisa juga ditambahkan kolom “Asal File” untuk mengetahui data berasal dari file mana.
• Jika kamu ingin hasil gabungan disimpan sebagai file baru, kamu juga bisa menambahkan perintah SaveAs.

Penutup

Dengan menggunakan script VBA ini, kamu nggak perlu lagi buang waktu menggabungkan file Excel satu per satu secara manual. Cukup sekali klik, semua data bisa langsung masuk ke satu sheet — rapi, ada jeda, dan langsung bisa kamu olah lebih lanjut. Cara gabung file Excel nggak pernah semudah ini, bukan?

Kalau kamu merasa terbantu, jangan ragu bagikan artikel ini ke rekan kerja atau simpan script-nya untuk keperluan berikutnya. Sampai jumpa di tutorial Excel selanjutnya di DepotExcel.com!

Download Template Gratis

Bagi Anda yang ingin mencoba teknik ini secara langsung, kami telah menyiapkan template gratis yang dirancang khusus untuk membantu Anda mempaktikkan Cara Gabung File Excel Otomatis dengan VBA Macro ini. File Excel bisa didownload melalui tautan berikut:

Atau juga jika ingin mempelajari langkah demi langkah secara visual, bisa kunjungi Youtube Channel Depot Excel. Di sana teman-teman akan melihat bagaimana rumusnya bekerja. Semoga bermanfaat!