Cara menyalin data dari beberapa sheet menjadi satu sheet di excel vba

@ 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 Sub

Mungkin dengan baris kode 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.

Bagaimana cara menyalin data dari beberapa lembar ke satu lembar dalam kode Excel VBA?

Bagaimana cara menarik data dari beberapa lembar kerja di Excel menggunakan VBA?

Bagaimana cara menggabungkan beberapa lembar kerja menjadi satu lembar kerja menggunakan VBA?

Bagaimana cara menyalin data dari beberapa buku kerja menjadi satu menggunakan VBA?