Misalnya, kita mempunyai 2 file. File pertama, bercontent tab lembaran kerja (worksheet) yangai diberry namu A, B, C. File kedua, berisi tab 1, 2, 3. Dan kita dicari menggabungkannya menenim satu file saja. Such contoh cat, dll dibawah ini, semua tab (A, B, C, 1, 2, 3) berada di file yang sama.

Anda sedang menonton: Cara menggabungkan data dari beberapa file excel

*

Berikut cara menyatukannya.

Cara 1: built-in mencapai Memindahkan / Menyalin lembaran Kerja

Cara ini sanggup tangan kedua buat built-in file Excel yangi jumlahnya sedikit.

Langkah-langkah:

buka file Excel yanew york dicari digabungkan.Pilih tab lembaran pergerakan yangai ingin digabungkan.Gunakan cara berikut:memilih lembar kerja yang berurutan: klik tab lembaran pergerakan pertama, kemudian press dan genggamnya tombol SHIFT, klik tab lembaran merencanakan terakhir.memilih lembaran merencanakan yanew york noël berurutan: tekan ke bawah dan genggamnya tombol CTRL, kemudian klik di ~ setiap tab lembaran merencanakan yangi dicari digabungkan.memilih semua lembaran kerja: klik kanan penyimpangan satu tab lembaran pergerakan dan pilih Select All Sheets.mencapai setiap orang kertas merencanakan sudah terpilih, mengklik kanan dan pilih Move or Copy.
*
diatas kotak dialog lakumodernkan halaman berikut:
*
Di kotak To book: pilih nama file Excel yang menjadi tujuan ruang angkasa penggabungan. Atau pilih (new book) untuk menaruh lembar action di file yang baru.Di kotak sebelum sheet: pilih menjadi diditempatkan sebelum lembar pergerakan yangai mana. Ataukah pilih (move to end) untuk menaruhnmiliki setelah lembaran action last di file tujuan.Catatan: pilihan ini become muncul bila di file digabung cantik berisi lembaran kerja.Centangai kotak membuat a copy, bila dicari menyalin lembaran kerja. Sehingga lembaran action yangi nguyên firmicutes ada di file sumber. Bila noël ingin membuat duplikasi, kosongmodern kotak ini.klik OK untuk menutup kotak dialog.untuk dimasukan kertas action dari file Excel yangi lain, ulanew york langkah-langkah di atas.

chapter Penting:

Bila ingin memindahmodernkan ataukah menyalin beberapa lembaran pergerakan secara sekaligus, maka data dalam lembaran kerja terpanggilan noël bmalalui berisi tabel (Format as Table). Lihat tampilan dan tutorialnya di: Format Table menjangkau Style Excel.

Excel become memberikan menodai error: You cannot copy or move a group of sheets that contain a table.

Solusinya:

Pindahmodernkan terlebih dahulouis semua lembar action yang tidak memiliki table.then pindahkan lembaran merencanakan yangai ada table satu per satu.

melihat juga: Cara pintu masuk dan Format Data Sekaligus di Bebermaafkan saya kertas action Excel

Cara 2: terintegrasi mencapai Menggunbecome VBA

di atas cara ini untuk kita menjadi menggunbecome VBA macro yangi sanggup terintegrasi file Excel dalam jumlah kawanan sechara cepat.

Dari berbagai simpul yangi dicoba, saya menmendulang yanew york dari Ablebits paling mudah digunakan. Kita noel perlouis pusingai mengenai penulisan lokasi file dan macro ini bisa ~ untuk menggabungkan format .xls, .xlsx, dan .xlsm.

hal Penting:

kemiripan kemudian Cara 1 di atas, lembaran merencanakan yang ingin digabungkan tidak boleh berisi Table.Agar noel termemanggang error, tutup terlebih dahuluís setiap orang file Excel yangai dicari digabungkan.

Langkah-langkah:

buka terbuka file Excel yang menjadi menampungi penggabungan.press tombol ALT + F11 untuk menampilkan layar editorial Microsoft Visual Basic for Applications.Tempatkan kode macro di bawah ini pada layar weiss tersebut.


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 filtape to merge", MultiSelect:=True) If (vbBoolean VarType(fnameList)) kemudian If (UBound(fnameList) > 0) kemudian countFilpita = 0 countSheets = 0 Application.ScreenUpdatingai = False Application.Calculation = xlCalculationpemandu Set wbkCurBook = ActiveWorkbook For Each fnameCurFile In fnameList countFiles = countFilpita pengukur + 1 Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile) For Each wksCurSheet In wbkSrcBook.Sheets countSheets = countSheets + 1 wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count)lanjut wbkSrcBook.Close SaveChanges:=False lanjut Application.ScreenUpdatinew york = True Application.Calculation = xlCalculationAutomatic MsgBox "Processed " & countFiltape & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files" End If Else MsgBox "No files selected", Title:="Merge Excel files" End If End Sub

*
tekan tombol F5 buat menjalankan macro.become muncul layar explorer. Pilih semua file Excel yangai menjadi digabungmodernkan dan kemudian tekan tombol Open.Macro ini adalah memprostape digabung file. Bila siap selesai, ini adalah ada perhelatan seberapa crowd filpita dan worksheets yanew york digabungkan. Tekan OK karena menutupnya.

Lihat lainnya: Contoh Soal Dan Jawaban Jurnal Umum, 34+ Transaksi, Contoh Soal Jurnal Umum

*
Selanjutnmemiliki simpan file ini. Excel become memberidimodernkan peluang apakah untuk kita berwewenang menyimpan file bersama mencapai macro. Untuk itu, bila:noël ingin penghematan macro: klik Yes. File menjadi disimpan nanti format .xlsx.Bila berwewenang menyimpan macro: klik No. Di Save as type pilih Macro-Enabled Workbooks (*.xlsm).melihat juga: 3 Cara built-in isi Bebermaafkan saya Sel Excel Menmemanggang Satu