Bisakah saya menggabungkan buku kerja excel menjadi satu?

Question

Pernahkah Anda mengalami kebuntuan saat harus menggabungkan beberapa buku kerja menjadi buku kerja utama di Excel? . Dan bagaimana cara menggabungkan hanya lembar kerja tertentu dari beberapa buku kerja menjadi satu buku kerja?

Table of Contents Show

Gabungkan beberapa buku kerja menjadi satu buku kerja dengan fungsi Pindahkan atau Salin
Gabungkan beberapa buku kerja atau lembar buku kerja tertentu ke buku kerja master dengan VBA
Dengan mudah menggabungkan beberapa buku kerja atau lembar buku kerja tertentu ke satu buku kerja
Bagaimana cara menggabungkan beberapa buku kerja menjadi satu buku kerja di Excel?
Bagaimana cara menggabungkan buku kerja saya?
Bagaimana cara menggabungkan beberapa buku kerja Excel menjadi satu 2010?
Bagaimana cara menggabungkan beberapa workbook menjadi satu workbook extend office?

Metode A.
Metode B.
Metode C.

Gabungkan beberapa buku kerja menjadi satu buku kerja dengan fungsi Pindahkan atau Salin

Jika hanya ada beberapa buku kerja yang perlu digabungkan, Anda dapat menggunakan perintah Pindahkan atau Salin untuk memindahkan atau menyalin lembar kerja secara manual dari buku kerja asli ke buku kerja master

1. Buka buku kerja yang akan Anda gabungkan menjadi buku kerja utama

2. Pilih lembar kerja di buku kerja asli yang akan Anda pindahkan atau salin ke buku kerja utama

Catatan

1). Anda dapat memilih beberapa lembar kerja yang tidak berdekatan dengan menahan tombol Ctrl dan mengeklik tab lembar satu per satu.

2). Untuk memilih beberapa lembar kerja yang berdekatan, silakan klik tab lembar pertama, tahan tombol Shift , lalu klik tab lembar terakhir untuk memilih semuanya.

3). Anda dapat mengklik kanan pada tab sheet mana pun, klik Pilih Semua Lembar dari menu konteks untuk memilih semua lembar kerja di buku kerja secara bersamaan.

3. Setelah memilih lembar kerja yang diperlukan, klik kanan tab lembar, lalu klik Pindahkan atau Salin dari menu konteks. Lihat tangkapan layar

4. Kemudian dialog Pindahkan atau Salin muncul, di tarik-turun Ke buku, pilih buku kerja utama tempat Anda akan memindahkan atau menyalin lembar kerja. Pilih pindah ke akhir di kotak Before sheet, centang kotak Create a copy, dan terakhir klik tombol OK

Kemudian Anda dapat melihat lembar kerja dalam dua buku kerja yang digabungkan menjadi satu. Silakan ulangi langkah-langkah di atas untuk memindahkan lembar kerja dari buku kerja lain ke dalam buku kerja utama

Gabungkan beberapa buku kerja atau lembar buku kerja tertentu ke buku kerja master dengan VBA

Jika ada beberapa buku kerja yang perlu digabungkan menjadi satu, Anda dapat menerapkan kode VBA berikut untuk mencapainya dengan cepat. Silakan lakukan sebagai berikut

1. Letakkan semua buku kerja yang ingin Anda gabungkan menjadi satu di bawah direktori yang sama

2. Luncurkan file Excel (buku kerja ini akan menjadi buku kerja utama)

3. Tekan tombol Alt + F11 untuk membuka jendela Microsoft Visual Basic untuk aplikasi. Di jendela Microsoft Visual Basic untuk aplikasi, klik Sisipkan > Modul, lalu salin kode VBA di bawah ini ke jendela Modul

Kode VBA1. Gabungkan beberapa buku kerja Excel menjadi satu

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  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

Catatan

1. Kode VBA di atas akan menyimpan nama sheet dari buku kerja asli setelah penggabungan

2. Jika Anda ingin membedakan lembar kerja mana di buku kerja master yang berasal dari mana setelah penggabungan, silakan terapkan kode VBA 2 di bawah ini

3. Jika Anda hanya ingin menggabungkan lembar kerja tertentu dari buku kerja ke dalam buku kerja master, kode VBA 3 di bawah ini dapat membantu

Dalam kode VBA, “ C. \Users\DT168\Desktop\KTE\ ” adalah jalur folder. Dalam kode VBA 3, " Sheet1,Sheet3 " adalah lembar kerja yang ditentukan dari buku kerja yang akan Anda gabungkan menjadi buku kerja master. Anda dapat mengubahnya berdasarkan kebutuhan Anda.

Kode VBA2. Gabungkan Buku Kerja menjadi satu (setiap lembar kerja akan diberi nama dengan awalan nama file aslinya)

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
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

_

kode VBA3. Gabungkan lembar kerja tertentu dari buku kerja ke dalam buku kerja utama

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
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

4. Tekan tombol F5 untuk menjalankan kode. Kemudian semua lembar kerja atau lembar kerja tertentu dari buku kerja dalam folder tertentu digabungkan menjadi buku kerja master sekaligus

Dengan mudah menggabungkan beberapa buku kerja atau lembar buku kerja tertentu ke satu buku kerja

Untungnya, Gabungkan buku kerja utilitas dari Kutools for Excel membuatnya lebih mudah untuk menggabungkan beberapa buku kerja menjadi satu. Mari kita lihat bagaimana agar fungsi ini berfungsi dalam menggabungkan beberapa buku kerja

Sebelum menerapkan Kutools for Excel, silakan unduh dan instal terlebih dahulu

1. Buat buku kerja baru dan klik Kutools Plus > Gabungkan. Kemudian muncul dialog untuk mengingatkan Anda bahwa semua buku kerja gabungan harus disimpan dan fitur tidak dapat diterapkan ke buku kerja yang diproteksi, silakan klik tombol OK

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

3. Dalam kotak dialog Gabungkan Lembar Kerja - Langkah 2 dari 3, klik Tambah > File atau Folder untuk menambahkan file Excel yang akan digabungkan menjadi satu. Setelah menambahkan file Excel, klik tombol Selesai dan pilih folder untuk menyimpan buku kerja utama. Lihat tangkapan layar

Sekarang semua buku kerja digabungkan menjadi satu

Dibandingkan dengan dua metode di atas, Kutools for Excel memiliki keunggulan sebagai berikut

1) Semua buku kerja dan lembar kerja dicantumkan di kotak dialog;
2) Untuk lembar kerja yang ingin Anda kecualikan dari penggabungan, hapus centang saja;
3) Lembar kerja kosong dikecualikan secara otomatis;
4) Nama file asli akan ditambahkan sebagai awalan ke nama sheet setelah penggabungan;
Untuk lebih banyak fungsi dari fitur ini, silakan kunjungi di sini

Jika Anda ingin mendapatkan uji coba gratis ( 30 -hari) utilitas ini, klik untuk mendownloadnya, lalu buka .

Kutools for Excel - Membantu Anda Selalu Menyelesaikan Pekerjaan Terlebih Dahulu, Memiliki Lebih Banyak Waktu untuk Menikmati Hidup

Apakah Anda sering menemukan diri Anda mengejar ketinggalan dengan pekerjaan, kurangnya waktu untuk dihabiskan untuk diri sendiri dan keluarga? . Kutools for Excel can help you to deal with 80% Excel puzzles and improve 80% work efficiency, give you more time to take care of family and enjoy life.

300 alat canggih untuk 1500 skenario kerja, membuat pekerjaan Anda jauh lebih mudah dari sebelumnya
Tidak perlu lagi menghafal rumus dan kode VBA, istirahatkan otak Anda mulai dari sekarang
Operasi yang rumit dan berulang dapat dilakukan satu kali pemrosesan dalam hitungan detik
Kurangi ribuan pengoperasian keyboard & mouse setiap hari, ucapkan selamat tinggal pada penyakit akibat kerja sekarang
Menjadi ahli Excel dalam 3 menit, membantu Anda cepat dikenali dan promosi kenaikan gaji
110.000 orang yang sangat efektif dan 300+ pilihan perusahaan terkenal dunia
Hasilkan $39 Anda. 0 bernilai lebih dari $4000. 0 pelatihan orang lain
Uji coba gratis fitur lengkap 30 -hari. Jaminan Uang Kembali 60 Hari tanpa alasan.

Terlama Pertama

Urutkan komentar menurut

Terlama Pertama

Pertama Terbaru

Komentar ( 146 )

Belum ada peringkat. Jadilah yang pertama menilai

A. Karthi

sekitar 9 tahun yang lalu