Cookies membantu kami menyampaikan perkhidmatan kami. Dengan menggunakan perkhidmatan kami, anda bersetuju dengan penggunaan cookies.
Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar
x

or

Bagaimana untuk menggabungkan pelbagai buku kerja ke satu buku kerja dalam Excel?

Pernahkah anda terperangkap apabila anda perlu menggabungkan beberapa buku kerja ke dalam satu buku kerja dalam Excel? Perkara yang paling teruk ialah buku kerja yang anda perlukan untuk menggabungkan mengandungi banyak lembaran kerja. Bolehkah sesiapa mencadangkan cara yang baik untuk mengatasi masalah ini?

Menggabungkan beberapa buku kerja ke satu buku kerja dengan VBA

Gabungkan beberapa buku kerja ke satu buku kerja dengan arahan Move atau Copy

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


Mudah menggabungkan pelbagai lembaran kerja / buku kerja ke dalam satu lembaran kerja / buku kerja:

Menggabungkan pelbagai lembaran kerja atau buku kerja ke dalam satu lembaran kerja atau buku kerja mungkin menjadi tugas yang besar dalam kerja harian anda. Tetapi, jika anda ada Kutools untuk Excel, utiliti yang berkuasa - Gabungkan boleh membantu anda dengan cepat menggabungkan pelbagai lembaran kerja, buku kerja ke dalam satu lembaran kerja atau buku kerja. Muat turun ciri penuh 60-hari percuma jejak Kutools untuk Excel sekarang!

Kutools untuk Excel: dengan lebih daripada 200 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60. Muat turun dan percubaan percuma Sekarang!


Menggabungkan beberapa buku kerja ke satu buku kerja dengan VBA

Untuk pengaturcara yang mahir dan profesional, anda boleh menggunakan skrip VBA untuk menggabungkan berbilang buku kerja ke dalam satu buku kerja induk. Anda boleh berurusan dengan langkah berikut:

1. Masukkan semua buku kerja yang anda ingin gabungkan ke dalam direktori yang sama. Lihat tangkapan skrin:

2. Lancarkan fail Excel yang anda ingin menggabungkan buku kerja lain ke dalamnya.

3. Klik Pemaju > Visual Basic, Baru Microsoft Visual Basic untuk aplikasi tetingkap akan dipaparkan, klik Memasukkan > Modul, dan masukkan kod 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

Petua: Dalam kod di atas, anda boleh menukar jalan ke arah yang anda gunakan.

4. Kemudian klik menggabungkan dokumen-buku kerja-butang butang untuk menjalankan kod, dan semua lembaran kerja (termasuk lembaran kerja kosong) dalam buku kerja telah digabungkan ke dalam buku kerja induk.

Nota: Kod VBA ini boleh menggabungkan keseluruhan buku kerja ke dalam buku kerja induk, jika anda mahu menggabungkan lembaran kerja buku kerja tertentu, kod ini tidak akan berfungsi.


Gabungkan beberapa buku kerja ke satu buku kerja dengan arahan Move atau Copy

Sekiranya anda seorang pemula Microsoft Excel, anda tidak mempunyai pilihan tetapi hanya perlu menyalin data setiap helaian dan tampalkannya ke buku kerja baru satu persatu dan memohon perintah Pindah atau Salin. Menggunakan Pindah atau Salin arahan akan membantu anda mengeksport atau menyalin satu atau beberapa lembaran kerja ke buku kerja baru dengan cepat.

1. Buka semua buku kerja yang anda ingin sertakan dalam buku kerja tunggal.

2. Pilih semua nama lembaran kerja buku kerja dalam bar tab. Anda boleh memilih berganda dengan menahan Ctrl kunci atau Beralih kunci. Klik kanan nama lembaran kerja dan klik Pindah atau Salin dari menu konteks.

3. dalam Pindah atau Salin kotak dialog, pilih buku kerja induk yang anda ingin sertakan buku kerja lain dari senarai drop-down Pindahkan helaian terpilih untuk menempah. Dan kemudian tentukan lokasi lembaran kerja yang digabungkan. Lihat tangkapan skrin:

4. Kemudian klik OK. Lembaran kerja yang dipilih telah dipindahkan ke buku kerja induk.

5. Ulangi langkah dari 2 ke 4 untuk memindahkan buku kerja lain ke buku kerja induk. Kemudian ia menggabungkan semua lembaran kerja buku kerja yang dibuka ke buku kerja tunggal. Lihat tangkapan skrin:


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

Mujurlah, untuk para pemula dan tangan baru Microsoft Excel, terdapat beberapa alat yang ada untuk membantu anda dengan cepat menggabungkan beratus-ratus buku kerja ke dalam satu. Fungsinya Gabungkan in Kutools untuk Excel menjadikannya lebih mudah untuk menggabungkan berbilang fail Excel. Aplikasi ini digunakan untuk melepaskan operasi berulang dan berlebihan dalam Excel. Ia sebenarnya memainkan peranan penting jika anda perlu berurusan dengan banyak fail Excel dalam kerja harian anda. Sekarang, mari kita lihat cara untuk mendapatkan fungsi ini dalam menggabungkan pelbagai buku kerja.

Kutools untuk Excel : dengan lebih daripada 300 berguna tambahan Excel, bebas untuk mencuba tanpa had pada hari 60.

1. Dayakan Excel dan klik Kutools Lebih > Gabungkan. Kemudian muncul dialog untuk mengingatkan anda bahawa semua buku kerja yang digabungkan perlu disimpan dan ciri tersebut tidak boleh digunakan untuk buku kerja yang dilindungi, sila klik OK butang.

2. Di dalam Menggabungkan Lembaran Kerja wizard, pilih Menggabungkan pelbagai helaian kerja dari buku kerja ke dalam satu buku kerja, dan kemudian klik Seterusnya butang. Lihat tangkapan skrin:

2. Kemudian anda dapat melihat semua buku kerja dan lembaran kerja yang dibuka disenaraikan di dalam Menggabungkan Lembaran Kerja - Langkah 2 dari 3 kotak dialog. Klik Tambah > File / Folder untuk menambah fail atau folder Excel lain whih yang mengandungi fail Excel yang akan anda gabungkan. Selepas memilih fail, klik Seterusnya butang untuk meneruskan. Lihat tangkapan skrin:

doc menggabungkan pelbagai buku kerja arrow1

3. Di dalam Menggabungkan Lembaran Kerja - Langkah 3 dari 3 kotak dialog, sila lakukan tetapan berikut:

  • 3.1 Anda boleh mengecualikan semua lembaran kosong dari penggabungan dengan memilih Langkau daripada Apabila menghadapi lembaran kerja kosong senarai jatuh.
  • 3.2 Semak Baris pertama setiap lembaran kerja (Komen) pilihan untuk memasukkan maklumat lembaran kerja setiap lembaran kerja gabungan.
  • 3.3 Anda boleh menamakan semula lembaran kerja gabungan baru dengan memasukkan nama buku kerja sebelum atau selepas nama lembaran kerja asal, atau simpan nama lembaran kerja asal dengan menyahtanda Dengan memasukkan nama buku kerja pilihan.
  • 3.4 Klik pada Selesai butang.

4. Kemudian pilih folder untuk menyelamatkan buku kerja gabungan, dan buka secara langsung seperti yang anda perlukan. Sekarang semua buku kerja yang dinyatakan digabungkan menjadi satu.

Nota:

1. Anda akan ditanya sama ada anda ingin menyimpan senario ini. Klik Ya untuk menyimpan seperti yang anda perlukan, kemudian masukkan nama senario, (lihat tangkapan skrin berikut). Selepas menyimpan senario, anda hanya perlu mengklik senario butang untuk memilih nama senario di langkah wizard2 untuk menggunakannya secara langsung.

2. Lembaran kerja dalam buku kerja terpilih telah digabungkan menjadi buku kerja baru, dan lembaran kerja dinamakan dengan nama buku kerja sebelum atau selepas nama lembaran kerja asal jika anda telah menyemak Dengan memasukkan nama buku kerja pilihan. Sementara itu, lembaran kerja baru bernama Kutools untuk Excel dihasilkan sebelum semua lembaran kerja, yang menyenaraikan buku kerja dengan maklumat terperinci setiap lembaran kerja. Lihat tangkapan skrin:

3. Jika nama lembaran kerja anda terlalu panjang, mungkin aksara nama lebih besar daripada 31characters, nama gabungan tidak akan dipaparkan, dan hanya menunjukkan nama kunci asal.

Petua.Jika anda ingin mendapatkan percubaan percuma utiliti ini, sila pergi ke muat turun perisian percuma pertama, dan kemudian pergi untuk memohon operasi mengikut langkah di atas.


Tab Pejabat - Pelayaran Tab, Penyuntingan, dan Urusan buku kerja dalam Excel:

Tab Pejabat membawa antara muka tab seperti yang dilihat dalam pelayar web seperti Google Chrome, versi baru Internet Explorer dan Firefox ke Microsoft Excel. Ia akan menjadi alat penjimatan masa dan tidak merosot dalam kerja anda. Lihat demo di bawah:

Klik untuk percubaan percuma Tab Pejabat!

Tab Pejabat untuk Excel

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




Related Articles:



Alat Produktiviti yang Disyorkan

Tab Pejabat

bintang emas1 Bawa tab berguna kepada Excel dan perisian Office lain, seperti Chrome, Firefox dan Internet Explorer baru.

Kutools untuk Excel

bintang emas1 Hebat! Tingkatkan produktiviti anda dalam minit 5. Tidak memerlukan kemahiran khas, kecuali dua jam setiap hari!

bintang emas1 Ciri-ciri Baru 300 untuk Excel, Buat Excel Banyak Mudah dan Berkuasa:

  • Merge Cell / Rows / Columns tanpa Kehilangan Data.
  • Menggabungkan dan Menyusun Lembaran Berbilang dan Buku Kerja.
  • Bandingkan Ranges, Salin Pelbagai Rang Undang-Undang, Tukar Teks hingga Tarikh, Penukaran Unit dan Mata Wang.
  • Count by Colors, Subtotal Paging, Urutkan Advanced dan Super Filter,
  • More Select / Insert / Delete / Text / Format / Link / Comment / Workbooks / Worksheets Tools ...

Skrin skrin 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 · 2 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 · 22 hours 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 · 22 hours 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.