Cookies membantu kami memberikan layanan kami. Dengan menggunakan layanan kami, Anda setuju untuk kami menggunakan cookies.
Kiat: Bahasa lain adalah Terjemahan-Google. Anda dapat mengunjungi English versi link ini
Masuk
x
or
x
x
Daftar
x

or

Bagaimana menggabungkan beberapa buku kerja ke satu buku kerja di Excel?

Pernahkah Anda terjebak saat Anda harus menggabungkan beberapa buku kerja ke dalam satu buku kerja di Excel? Hal yang paling mengerikan adalah bahwa buku kerja yang Anda butuhkan untuk menggabungkan berisi beberapa lembar kerja. Ada yang bisa menyarankan cara yang baik untuk menangani masalah ini?

Gabungkan beberapa workbook ke satu workbook dengan VBA

Gabungkan beberapa buku kerja ke satu buku kerja dengan perintah Move or Copy

Mudah menggabungkan beberapa buku kerja ke satu buku kerja dengan Kutools untuk Excel


Mudah menggabungkan beberapa lembar kerja / buku kerja ke dalam satu lembar kerja / buku kerja:

Gabungkan beberapa lembar kerja atau buku kerja menjadi satu lembar kerja atau buku kerja mungkin merupakan tugas besar dalam pekerjaan sehari-hari Anda. Tapi, jika sudah Kutools for Excel, utilitas yang kuat - Menggabungkan dapat membantu Anda menggabungkan beberapa lembar kerja dengan cepat, buku kerja menjadi satu lembar kerja atau buku kerja. Unduh fitur lengkap jejak gratis 60-hari Kutools untuk Excel sekarang!

Kutools for Excel: dengan lebih dari 200 berguna Excel add-in, bebas untuk mencoba tanpa batasan dalam 60 hari. Download dan uji coba gratis Sekarang!


Gabungkan beberapa workbook ke satu workbook dengan VBA

Bagi pemrogram yang terampil dan profesional, Anda dapat menggunakan skrip VBA untuk menggabungkan beberapa buku kerja ke dalam satu buku kerja utama. Anda bisa mengatasinya dengan langkah-langkah berikut:

1. Masukkan semua buku kerja yang ingin Anda gabungkan ke dalam direktori yang sama. Lihat tangkapan layar

2. Luncurkan file Excel yang ingin Anda gabungkan buku kerja lainnya ke dalam.

3. Klik Pembangun > Visual Basic, Baru Microsoft Visual Basic untuk aplikasi jendela akan ditampilkan, klik Menyisipkan > Modul, dan masukan kode berikut ke dalam Modul:

Sub GetSheets()
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

jenis: Pada kode di atas, Anda dapat mengubah jalur ke jalur yang Anda gunakan.

4. Lalu klik doc-merge-multiple-workbooks-button tombol untuk menjalankan kode, dan semua lembar kerja (termasuk lembar kerja kosong) di dalam buku kerja telah digabungkan ke dalam buku kerja utama.

Catatan: Kode VBA ini dapat menggabungkan seluruh buku kerja ke dalam buku kerja utama, jika Anda ingin menggabungkan lembar kerja yang ditentukan dari buku kerja, kode ini tidak akan bekerja.


Gabungkan beberapa buku kerja ke satu buku kerja dengan perintah Move or Copy

Jika Anda seorang pemula Microsoft Excel, Anda tidak punya pilihan selain hanya menyalin data dari setiap lembar dan menempelkannya ke buku kerja baru satu per satu dan menerapkan perintah Move or Copy. Menggunakan Pindahkan atau Salin perintah akan membantu Anda mengekspor atau menyalin satu atau beberapa lembar kerja ke buku kerja baru dengan cepat.

1. Buka semua buku kerja yang ingin Anda gabungkan ke dalam satu buku kerja.

2. Pilih semua nama lembar kerja dari buku kerja di bilah tab. Anda dapat memilih beberapa dengan menahan Ctrl kunci atau perubahan kunci. Klik kanan nama worksheet, dan klik Pindahkan atau Salin dari menu konteks

3. di Pindahkan atau Salin kotak dialog, pilih buku kerja utama yang ingin Anda gabungkan buku kerja lain dari daftar drop down Pindahkan lembar yang dipilih ke buku. Dan kemudian tentukan lokasi lembar kerja gabungan. Lihat tangkapan layar:

4. Lalu klik OK. Lembar kerja yang dipilih telah dipindahkan ke buku kerja utama.

5. Ulangi langkah-langkah dari 2 ke 4 untuk memindahkan buku kerja lainnya ke buku kerja utama. Kemudian menggabungkan semua lembar kerja buku kerja yang dibuka menjadi satu buku kerja. Lihat tangkapan layar:


Mudah menggabungkan beberapa buku kerja ke satu buku kerja dengan Kutools untuk Excel

Untungnya, untuk pemula dan tangan baru Microsoft Excel, ada beberapa alat yang tersedia untuk membantu Anda menggabungkan ratusan buku kerja menjadi satu dengan mudah. Fungsinya Menggabungkan in Kutools for Excel membuatnya lebih mudah untuk menggabungkan beberapa file Excel. Aplikasi ini digunakan untuk merilis operasi berulang dan berlebihan di Excel. Ini benar-benar memainkan peran penting jika Anda harus berurusan dengan sejumlah besar file Excel dalam pekerjaan sehari-hari Anda. Sekarang, mari kita lihat bagaimana cara kerja fungsi ini dalam menggabungkan beberapa buku kerja.

Kutools for Excel : dengan lebih dari 300 berguna Excel add-in, bebas untuk mencoba tanpa batasan dalam 60 hari.

1. Aktifkan Excel dan klik Kutools Plus > Menggabungkan. Kemudian muncul dialog untuk mengingatkan Anda bahwa semua buku kerja gabungan harus disimpan dan fitur tidak dapat diterapkan ke buku kerja yang dilindungi, silakan klik OK tombol.

2. di Gabungkan Lembar Kerja wizard, pilih Gabungkan beberapa lembar kerja dari buku kerja menjadi satu buku kerja, lalu klik Berikutnya tombol. Lihat tangkapan layar

2. Kemudian Anda dapat melihat semua buku kerja dan lembar kerja yang terbuka dicantumkan dalam Gabungkan Worksheets - Langkah 2 dari 3 kotak dialog. Klik menambahkan > fillet / Map untuk menambahkan file atau folder Excel lain yang berisi file Excel yang akan Anda gabungkan. Setelah memilih file, klik Berikutnya tombol untuk melanjutkan. Lihat tangkapan layar

doc menggabungkan beberapa buku kerja arrow1

3. di Gabungkan Worksheets - Langkah 3 dari 3 kotak dialog, silakan lakukan pengaturan berikut:

  • 3.1 Anda dapat mengecualikan semua lembar kerja kosong dari penggabungan dengan memilih Melewatkan dari Saat menghadapi lembar kerja kosong daftar drop down
  • 3.2 Periksa Baris pertama dari setiap lembar kerja (Komentar) pilihan untuk memasukkan informasi lembar kerja dari setiap lembar kerja gabungan.
  • 3.3 Anda dapat mengganti nama lembar kerja gabungan baru dengan memasukkan nama buku kerja sebelum atau sesudah nama lembar kerja asli, atau hanya menyimpan nama lembar kerja asli dengan menghapus centang pada Dengan memasukkan nama buku kerja pilihan.
  • 3.4 Klik tombol selesai tombol.

4. Kemudian pilih folder untuk menyimpan buku kerja gabungan, dan buka secara langsung sesuai kebutuhan Anda. Sekarang semua buku kerja yang ditentukan digabungkan menjadi satu.

Catatan:

1. Anda akan ditanya apakah Anda ingin menyimpan skenario ini. Klik ya untuk menyimpan sesuai kebutuhan, lalu masukkan nama skenario, (lihat screenshot berikut). Setelah menyimpan skenario, Anda hanya perlu mengklik skenario tombol untuk memilih nama skenario pada wizard step2 untuk menggunakannya secara langsung.

2. Lembar kerja di buku kerja yang dipilih telah digabung menjadi buku kerja baru, dan lembar kerja diberi nama dengan nama buku kerja sebelum atau sesudah nama lembar kerja asli jika Anda telah memeriksa Dengan memasukkan nama buku kerja pilihan. Sementara itu, lembar kerja baru bernama Kutools for Excel dihasilkan sebelum semua lembar kerja, yang berisi daftar buku kerja dengan informasi rinci dari setiap lembar kerja. Lihat screenshot:

3. Jika nama lembar kerja Anda terlalu panjang, mungkin nama karakter lebih besar dari 31characters, nama gabungan tidak akan ditampilkan, dan hanya menampilkan nama lembar asli.

Tip.Jika Anda ingin mencoba percobaan gratis ini, silakan pergi ke download perangkat lunak dengan bebas pertama, dan kemudian pergi untuk menerapkan operasi sesuai langkah di atas.


Office Tab - Tabbed Browsing, Editing, dan Managing of Workbooks di Excel:

Tab Office menghadirkan antarmuka tab seperti yang terlihat di browser web seperti Google Chrome, Internet Explorer versi baru dan Firefox ke Microsoft Excel. Ini akan menjadi alat yang menghemat waktu dan tidak dapat dilepas dalam pekerjaan Anda. Lihat demo di bawah ini:

Klik untuk percobaan gratis Tab Office!

Tab Office untuk Excel

Demo: Mudah menggabungkan beberapa buku kerja ke satu buku kerja dengan Kutools untuk Excel




Artikel Terkait:



Alat Produktifitas yang Direkomendasikan

Office Tab

Bintang emas1 Bawa tab yang berguna ke Excel dan perangkat lunak Office lainnya, seperti Chrome, Firefox dan Internet Explorer baru.

Kutools for Excel

Bintang emas1 Menakjubkan! Tingkatkan produktivitas Anda dalam 5 menit. Tidak perlu keahlian khusus, hemat dua jam setiap hari!

Bintang emas1 300 Fitur Baru untuk Excel, Membuat Excel Lebih Mudah dan Hebat:

  • Gabungkan Sel / Baris / Kolom tanpa Kehilangan Data.
  • Menggabungkan dan mengkonsolidasikan beberapa lembar dan buku kerja.
  • Bandingkan Range, Copy Multiple Ranges, Konversi Teks ke Tanggal, Konversi Unit dan Mata Uang.
  • Hitung dengan Warna, Pager Subtotals, Filter Sort dan Super Tingkat Lanjut,
  • Lebih Pilih / Sisipkan / Hapus / Teks / Format / Link / Komentar / Buku Kerja / Lembar Kerja Alat ...

Tembakan layar dari Kutools untuk Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dezignext Technologies · 6 days ago
    I like using this technique better than using traditional "3D Formula" techniques in Excel.
  • To post as a guest, your comment is unpublished.
    Jonel · 1 months ago
    Note: This VBA code can merge the entire workbooks into the master workbook, if you want to combine specified worksheets of the workbooks, this code will not work.

    Can we have the module for VBA that above scene will work,
    • To post as a guest, your comment is unpublished.
      crystal · 5 days ago
      Hi Jonel,
      The following code can help you solve the problem. You need to replace folder path and "Sheet1, Sheet3" with the specified folder path and worksheets as you need.

      Sub MergeSheets2()
      Dim xStrPath As String
      Dim xStrFName As String
      Dim xWS As Worksheet
      Dim xMWS As Worksheet
      Dim xTWB As Workbook
      Dim xStrAWBName As String
      Dim xI As Integer
      On Error Resume Next

      xStrPath = " C:\Users\DT168\Desktop\KTE\"
      xStrName = "Sheet1,Sheet3"

      xArr = Split(xStrName, ",")

      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      Set xTWB = ThisWorkbook
      xStrFName = Dir(xStrPath & "*.xlsx")
      Do While Len(xStrFName) > 0
      Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
      xStrAWBName = ActiveWorkbook.Name
      For Each xWS In ActiveWorkbook.Sheets
      For xI = 0 To UBound(xArr)
      If xWS.Name = xArr(xI) Then
      xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
      Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
      xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
      Exit For
      End If
      Next xI
      Next xWS
      Workbooks(xStrAWBName).Close
      xStrFName = Dir()
      Loop
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True

      End Sub
  • To post as a guest, your comment is unpublished.
    Chris · 2 months ago
    When I run this, each sheet in the new workbook is being named based off of the sheet names of the original document rather than the filenames. Any idea what I might be doing wrong?
    • To post as a guest, your comment is unpublished.
      crystal · 5 days ago
      Hi Chris,
      If you want to distinguish which worksheets in the master workbook came from where after merging, please apply the below VBA code to solve the problem.

      Sub MergeWorkbooks()
      Dim xStrPath As String
      Dim xStrFName As String
      Dim xWS As Worksheet
      Dim xMWS As Worksheet
      Dim xTWB As Workbook
      Dim xStrAWBName As String
      On Error Resume Next
      xStrPath = "C:\Users\DT168\Desktop\KTE\"
      xStrFName = Dir(xStrPath & "*.xlsx")
      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      Set xTWB = ThisWorkbook
      Do While Len(xStrFName) > 0
      Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
      xStrAWBName = ActiveWorkbook.Name
      For Each xWS In ActiveWorkbook.Sheets
      xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
      Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
      xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
      Next xWS
      Workbooks(xStrAWBName).Close
      xStrFName = Dir()
      Loop
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Owen · 5 months ago
    It didnt work for me then I realized my files are .xlsx, so added the missing "x" to the Filename line.
  • To post as a guest, your comment is unpublished.
    Justin · 8 months ago
    This worked for me but I had to make sure I have to put "\" at the end of my path. Initially, I didn't have it and it wouldn't work.