Script VBA Cara Menggabungkan Beberapa File Excel Dalam Satu Sheet Dengan Cepat

Pernahkah kalian mengolah suatu data dari beberapa data Excel? Merasa kesulitankah kalian jika data berasal dari banyak data Excel ? Misalkan data berasal dari lebih dari 100 file Excel? Akan kah kalian melakukan copy data secara satu persatu untuk mengolahnya ?

Kali ini web Matematika Akuntansi akan berbagi solusi terkait masalah diatas yaitu kami akan berbagi ilmu tentang cara menggabungkan beberapa file excel dalam satu sheet.

Untuk menggabungkan beberapa file Excel dalam satu sheet secara cepat bisa dibantu dengan script VBA GetOpenFileName yang dikombinasikan dengan script-script yang lainnya. Berikut adalah scriptnya :

Sub Consolidate_Data()

Dim wb As Workbook

Dim sh As Worksheet

Dim dsh As Worksheet

Set dsh = ThisWorkbook.Sheets(1)

dsh.UsedRange.Clear

Dim File_Name As Variant

File_Name = Application.GetOpenFilename("Excel Files (*.xlsx),*.xlsx, Text Files (*.txt),*.txt", 1, "Select Excel Files to Consolidate", , True)

Dim i As Integer

Dim lr As Long

For i = LBound(File_Name) To UBound(File_Name)

lr = dsh.Range("A" & Application.Rows.Count).End(xlUp).Row

Set wb = Workbooks.Open(File_Name(i))

Set sh = wb.Sheets(1)

sh.UsedRange.Copy dsh.Range("A" & lr + 1)

wb.Close False

Next i

dsh.Range("1:1").Delete

dsh.UsedRange.AutoFilter 1, dsh.Range("A1").Value

dsh.Range("A2:A" & Application.Rows.Count).SpecialCells(xlCellTypeVisible).EntireRow.Delete

dsh.AutoFilterMode = False

End Sub

Cara Menggabungkan Beberapa File Excel Dalam Satu Sheet.

Ikuti langkah-langkah berikut ini untuk membuktikan bahwa script VBA yang telah kami jelaskan di atas bisa berjalan :

1. Buka Aplikasi Ms. Excel;

2. Buat Shape dalam sebuah sheet tertentu yang nantinya akan digunakan sebagai tombol untuk menjalankan Macro;

3. Pilih menu → Developer → Viewcode di jendela Ms. Excel;

4. Setelah jendela Macro terbuka maka pilih menu Insert → Module di jendela VBA Excel;

5. Masukan script VBA yang telah kami jelaskan di atas ke dalam jendel Module;

6. Kembali lagi ke lembar kerja Excel dan masuk ke sheet Tombol kemdian klick kanan pada shape → pilih Assign Macro;

7. Setelah jendela Assign Macro muncul, pilih Macro Name Consolidate Data → klick OK pada jendela Assign Macro;

8. Klick Shape yang telah kalian buat untuk menjalankan macro → pilih semua file yang kalian inginkan dan klick Open di jendela Select Excel Files To Consolidate.