@ tridi94
Sub Macro1() Dim i As Integer Dim j As Integer Dim z As Integer z = 4 j = 3 For i = 2 To Worksheets.Count Worksheets("main").Cells(j, 3).Value = Worksheets(i).Cells(1, 1).Value Worksheets("main").Cells(z, 4).Value = Worksheets(i).Cells(3, 3).Value Worksheets("main").Cells(z + 1, 4).Value = Worksheets(i).Cells(4, 3).Value Worksheets("main").Cells(z, 5).Value = Worksheets(i).Cells(3, 4).Value Worksheets("main").Cells(z + 1, 5).Value = Worksheets(i).Cells(4, 4).Value j = j + 4 z = z + 4 Next i End SubMungkin dengan baris kode ini
Lembar alat Power Query menyediakan cara cepat dan mudah untuk menggabungkan banyak lembar kerja menjadi satu. Saat kami hanya memiliki beberapa set buku kerja yang ingin kami gabungkan, kami dapat menggunakan langkah-langkah ini
- 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 Variant0
Dim fnameList, fnameCurFile As Variant1
Dim fnameList, fnameCurFile As Variant2
Dim fnameList, fnameCurFile As Variant_3
Dim fnameList, fnameCurFile As Variant_4
Dim fnameList, fnameCurFile As Variant5
Dim fnameList, fnameCurFile As Variant6 Dim fnameList, fnameCurFile As Variant7
Dim fnameList, fnameCurFile As Variant8
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.