- Kami akan membuka semua lembar kerja yang ingin kami gabungkan
- Pada lembar kosong, kita akan menuju ke Tab Data
- Selanjutnya, kita klik Dapatkan Data Eksternal atau Dapatkan Data [bergantung pada versi Excel]
- Dalam daftar drop-down, kita akan pergi ke Dari Sumber Lain opsi. Jika kita memiliki Excel 2016, kita akan mengklik New Query dan memilih . Other Sources option.
- Selanjutnya, kita akan mengklik Blank Query untuk membuka editor Power Query
- Di Editor, kita akan memasukkan rumus di bawah ini di bilah rumus
=Excel.CurrentWorkbook[]
- Kita akan menekan tombol Enter untuk menampilkan semua nama tabel
- Untuk menggabungkan tabel, kita akan mengklik panah berujung ganda di sel header konten
- Kita akan memilih semua kolom yang ingin kita gabungkan
- Kami akan menghapus centang opsi Gunakan nama kolom asli sebagai awalan
- Kami akan mengklik Oke
- Lembar kerja kami akan digabungkan menjadi satu tabel di tab Power Query
- Setelah menggabungkan lembar Excel di Power Query , kita dapat memuatnya di Excel
- Kita akan mengklik Tabel file
- Kami akan mengeklik Tutup dan Muat Ke
- Dalam kotak dialog Impor Data, kita akan memilih Tabel and New Worksheet option
- Kami akan mengklik Oke
Menggunakan makro untuk menggabungkan beberapa file Excel menjadi satu
Saat kami memiliki banyak file Excel, kami dapat menggabungkannya dengan cepat menggunakan makro VBA. Kita dapat dengan mudah menggunakan makro yang ditampilkan di bawah ini
- Kita akan mengklik Alt + F11 dan memilih Visual Basic Editor
- Selanjutnya, kita klik kanan Buku Kerja Ini dan pilih Sisipkan, then Modules
- Di jendela yang terbuka, kita akan memasukkan kode yang ditampilkan di bawah 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
_
Sub MergeExcelFiles[]
_0
Sub MergeExcelFiles[]
_1
Sub MergeExcelFiles[]
_2
Sub MergeExcelFiles[]
_3
Sub MergeExcelFiles[]
_4
Sub MergeExcelFiles[]
_5
Sub MergeExcelFiles[]
_6
Sub MergeExcelFiles[]
_7
Sub MergeExcelFiles[]
_8
Sub MergeExcelFiles[]
_9
Dim fnameList, fnameCurFile As Variant
0
Dim fnameList, fnameCurFile As Variant
1
Dim fnameList, fnameCurFile As Variant
2
Dim fnameList, fnameCurFile As Variant
_3
Dim fnameList, fnameCurFile As Variant
_4
Dim fnameList, fnameCurFile As Variant
5
Dim fnameList, fnameCurFile As Variant
6 Dim fnameList, fnameCurFile As Variant
7
Dim fnameList, fnameCurFile As Variant
_8
Dim fnameList, fnameCurFile As Variant
_9
Dim countFiles, countSheets As Integer
0
Dim countFiles, countSheets As Integer
1
- Sekarang untuk menjalankan Macro, kita klik Alt +F8 untuk menampilkan dialog Macro
- Selanjutnya, kita akan memilih MergeExcelFiles dan tap, Run
Koneksi Instan ke Pakar Excel
Sering kali, masalah yang perlu Anda selesaikan akan lebih rumit daripada aplikasi sederhana dari rumus atau fungsi. Jika Anda ingin menghemat berjam-jam riset dan frustrasi, cobalah layanan live Excelchat kami. Pakar Excel kami tersedia 24/7 untuk menjawab pertanyaan Excel apa pun yang mungkin Anda miliki. Kami menjamin koneksi dalam 30 detik dan solusi khusus dalam 20 menit.