Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara menggabungkan atau menggabungkan lembar kerja atau buku kerja menjadi satu lembar kerja?

Dalam pekerjaan sehari-hari, kami mungkin mengalami masalah yang menggabungkan ratusan lembar atau buku kerja menjadi satu lembar untuk menganalisis data yang membutuhkan banyak waktu jika Anda menggunakan perintah Salin dan Tempel di Excel. Di sini, di tutorial ini, saya akan memberikan beberapa tip untuk menyelesaikan pekerjaan ini dengan cepat.

doc menggabungkan 1

NAVIGASI CEPAT

Menggabungkan semua lembar workbook aktif menjadi satu lembar dengan VBA
Menggabungkan puluhan lembar atau workbook menjadi satu worksheet / workbook dengan klik
Menggabungkan dua tabel menjadi satu dan memperbarui dengan kolom dengan klik
Unduh file contoh


Menggabungkan semua lembar workbook aktif menjadi satu lembar dengan VBA

Di bagian ini, saya memberikan kode VBA yang akan membuat lembar baru untuk mengumpulkan semua lembar buku kerja yang aktif saat Anda menjalankannya.

1. Aktifkan workbook yang ingin Anda gabungkan semua sheetnya, lalu tekan + kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Di jendela yang muncul, klik Menyisipkan > Modul untuk membuat skrip Modul baru.

3. Salin kode di bawah ini dan tempelkan ke skrip.

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
doc menggabungkan 2

4. tekan F5 key, maka semua data di seluruh sheet telah digabungkan ke dalam sheet baru bernama Combined yang ditempatkan di depan semua sheet.


atau bergerak

Apakah Anda Ingin Mendapatkan Gaji dan Banyak Waktu Untuk Menemani Keluarga?

Tab Office Meningkatkan Efisiensi Anda Hingga 50% Di Microsoft Office Bekerja Sekarang

Luar biasa, mengerjakan dua atau lebih dokumen lebih mudah dan lebih cepat daripada mengerjakan satu dokumen.

Dibandingkan dengan browser terkenal, alat tab di Office Tab lebih kuat dan lebih efisien.

Kurangi ratusan klik mouse dan ketikan keyboard setiap hari untuk Anda, ucapkan selamat tinggal pada tangan mouse sekarang.

Jika Anda biasanya bekerja di banyak dokumen, Office Tab akan menjadi penghemat waktu yang tepat untuk Anda.

30percobaan gratis -hari, tidak perlu kartu kredit.

Baca SelengkapnyaDownload Gratis Sekarang


Menggabungkan puluhan lembar atau workbook menjadi satu worksheet / workbook dengan klik

Dengan VBA, Anda hanya bisa menggabungkan lembar di buku kerja aktif, tapi bagaimana Anda bisa menggabungkan lembar di seluruh buku kerja ke lembar atau buku kerja?

Gabungkan lembar di seluruh buku kerja menjadi satu lembar
doc menggabungkan 18

Gabungkan lembar di seluruh buku kerja menjadi satu buku kerja
doc menggabungkan 3

Untuk menyelesaikan pekerjaan ini dan memenuhi persyaratan lain pada kombinasi lembaran, Menggabungkan fungsi telah dikembangkan dengan empat skenario kombinasi:

  • Gabungkan beberapa lembar atau buku kerja menjadi satu lembar
  • Gabungkan beberapa lembar atau buku kerja menjadi satu buku kerja
  • Gabungkan lembar nama yang sama menjadi satu lembar
  • Gabungkan nilai di seluruh lembar atau buku kerja menjadi satu lembar

Di sini mengambil opsi kedua sebagai contoh:

Gabungkan beberapa lembar atau buku kerja menjadi satu buku kerja

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. Aktifkan Excel, klik Kutools Plus > Menggabungkan, sebuah dialog muncul untuk mengingatkan Anda bahwa buku kerja yang ingin Anda gabungkan harus ditutup. Klik OK untuk melanjutkan.
doc menggabungkan 4
doc menggabungkan 5

2. Dalam Gabungkan Lembar Kerja langkah 1 dialog, periksa Gabungkan beberapa lembar kerja dari buku kerja menjadi satu buku kerja pilihan. Klik Next untuk melanjutkan ke langkah wisaya berikutnya.
doc menggabungkan 6

3. klik Add > File or Map untuk menambahkan buku kerja yang ingin Anda gabungkan ke Daftar buku kerja panel, lalu Anda dapat menentukan lembar kerja mana yang akan digabungkan dengan memeriksa nama di Daftar lembar kerja panel. Klik Next untuk pergi ke langkah terakhir wizard.
doc menggabungkan 7

4. Pada langkah ini, tentukan pengaturan yang Anda butuhkan. Lalu klik Finish.
doc menggabungkan 8

5. Sebuah jendela muncul untuk Anda memilih folder untuk menempatkan buku kerja gabungan, lalu klik Save.
doc menggabungkan 9

Sekarang workbook telah digabungkan menjadi satu workbook. Dan di depan semua lembar, lembar master bernama Kutools for Excel juga dibuat yang mencantumkan beberapa informasi tentang lembar dan tautan untuk setiap lembar.
doc menggabungkan 10

Demo: Gabungkan lembaran / workbook menjadi satu sheet atau workbook

Kutools for Excel: 200 + alat praktis yang berguna, menyederhanakan tugas rumit di Excel menjadi beberapa klik.

Ucapkan Selamat Tinggal Pada Tangan Tikus dan Spondylosis Serviks Sekarang

300 alat canggih dari Kutools for Excel pecahkan 80% Tugas Excel dalam hitungan detik, menarik Anda keluar dari ribuan klik mouse.

Mudah menangani 1500 skenario kerja, tidak perlu membuang waktu untuk mencari solusi, punya banyak waktu untuk menikmati hidup Anda.

Tingkatkan produktivitas 80% untuk 110000+ orang yang sangat efektif setiap hari, tentu saja termasuk Anda.

Tidak lagi tersiksa oleh formula dan VBA yang menyakitkan, berikan otak Anda istirahat dan suasana kerja yang menyenangkan.

30uji coba gratis -hari dengan fitur lengkap, 30-hari uang kembali tanpa alasan.

Tubuh yang Lebih Baik Menciptakan Kehidupan yang Lebih Baik.


Menggabungkan dua tabel menjadi satu dan memperbarui dengan kolom dengan klik

Jika Anda ingin menggabungkan dua tabel menjadi satu dan memperbarui data berdasarkan kolom seperti gambar di bawah ini, Anda dapat mencoba Tabel Menggabungkan kegunaan Kutools untuk Excel.
doc menggabungkan 11

Kutools for Excel: lebih dari 200 add-in Excel yang berguna untuk menyederhanakan tugas rumit menjadi beberapa klik di Excel

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. klik Kutools Plus > Tabel Menggabungkan untuk mengaktifkan Tabel Menggabungkan wizard.
doc menggabungkan 12

2. Di langkah 1 panduan, Anda perlu memilih tabel utama dan rentang tabel pencarian secara terpisah. Lalu klik Next.
doc menggabungkan 13

3. Centang kolom kunci yang ingin Anda perbarui datanya di tabel utama. Klik Next.
doc menggabungkan 14

4. Kemudian centang kolom pada tabel utama yang ingin Anda perbarui datanya berdasarkan tabel lookup. Klik Next.
doc menggabungkan 15

5. Di langkah 4 wizard, centang kolom yang ingin Anda tambahkan dari tabel pencarian ke tabel utama. Klik Next.
doc menggabungkan 16

6. Pada langkah terakhir wizard, tentukan opsi pengaturan yang Anda butuhkan. Lalu klik Finish.
doc menggabungkan 17

Sekarang tabel utama telah mengupdate datanya dan menambahkan data baru berdasarkan tabel lookup.

Demo: Gabungkan lembaran / workbook menjadi satu sheet atau workbook

Kutools for Excel: 200 + alat praktis yang berguna, menyederhanakan tugas rumit di Excel menjadi beberapa klik.


Unduh File Contoh

mencicipi


Alat Produktivitas yang Direkomendasikan

Tab Office - Penjelajahan dengan Tab, Pengeditan, Pengelolaan Dokumen Di Microsoft Office 2019 - 2003 dan Office 365


tab kantor

Add-in Profesional untuk Mempercepat Excel 2019-2007, mengurangi jam tugas menjadi detik

Add-in ini mencakup lusinan grup profesional, dengan 300+ opsi akan mengotomatiskan sebagian besar tugas harian Anda di Excel, dan meningkatkan produktivitas Anda setidaknya hingga 50%. Seperti grup optons satu klik dan konversi batch.
Sekarang kesempatan Anda untuk mempercepat diri Anda dengan Kutools for Excel!


Urutkan komentar berdasarkan
komentar (168)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
menggunakan fungsi Makro pertama Anda. WOW! terima kasih telah memposting
Komentar ini diminimalkan oleh moderator di situs
Saya pikir kode 'Seleksi.Offset(0, 0).Ubah ukuran(Seleksi.Baris.Jumlah - 1).Pilih' tidak harus ada. Di pihak saya, yang dilakukannya adalah memilih baris kedua dan seterusnya tanpa yang pertama.
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki masalah yang sama. Itu menghilangkan baris pertama dari lembar kerja kedua yang ditambahkan.
Komentar ini diminimalkan oleh moderator di situs
Menghilangkan tajuk sehingga Anda tidak memiliki tajuk duplikat
Komentar ini diminimalkan oleh moderator di situs
Bekerja seperti pesona, terima kasih telah berbagi!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih! Makro bekerja dengan sempurna.
Komentar ini diminimalkan oleh moderator di situs
saya tidak tahu, cara menggunakan fungsi VBN di excel, dapatkah Anda membantu bagaimana melakukannya.
Komentar ini diminimalkan oleh moderator di situs
Keren terima kasih!!! Sangat Sangat Bermanfaat
Komentar ini diminimalkan oleh moderator di situs
Makro satu bekerja dengan baik. Terima kasih!! Itu mengagumkan!!!! :)
Komentar ini diminimalkan oleh moderator di situs
Perhatikan bahwa ini dibatasi oleh batas baris 65k, jika Anda perlu meningkatkan pilihan.Salin Tujuan:=Sheets(1).Range("A65536").End(xlUp)(2) rentang untuk menyelesaikan masalah.
Komentar ini diminimalkan oleh moderator di situs
Alat yang hebat, bagaimanapun, tidak menggabungkan semua 21 lembar. Bagaimana saya bisa memperluas jangkauan?
Komentar ini diminimalkan oleh moderator di situs
CATATAN!!! Anda harus berhati-hati dengan makro.. ini akan berfungsi jika data Anda memiliki aliran informasi yang berkelanjutan dan tidak ada baris kosong. ini yang dilakukan oleh baris "Selection.CurrentRegion.Select". Misalnya, jika Anda perlu menyalin SEMUA data pada spreadsheet tetapi ada baris kosong di (katakanlah) baris 200, makro hanya akan menyalin ke baris 200; INI AKAN MENGABAIKAN SEMUA DATA DI BAWAH BARIS ITU!!!
Komentar ini diminimalkan oleh moderator di situs
Adakah yang tahu perintah untuk menghindari masalah ini ?? Masalah dengan Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select dapat diselesaikan? Selection.Rows.Count - 1) adalah perintah yang menyebabkan masalah. Siapa pun??
Komentar ini diminimalkan oleh moderator di situs
Daripada memulai dari atas dan turun, mulailah dari bawah dan naik
Komentar ini diminimalkan oleh moderator di situs
Adakah yang tahu kode untuk menyelesaikan masalah baris dan kolom kosong?. Saya memilikinya di data saya tetapi tidak ada solusi sederhana seperti memulai dari bawah ke atas? Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Untuk menghapus baris yang kosong: Opsi 1: Pilih sel di kolom A yang perlu dihapus. Gunakan Ctrl - lalu pilih Seluruh Baris di popu up. Simpan buku kerja dan keluar. Kemudian buka buku kerja. Opsi 2: Pilih baris yang perlu dihapus. Gunakan Ctrl-. Simpan buku kerja dan keluar dari Buku kerja yang terbuka. Memberi opsi 1 sehingga terlihat oleh Anda apa yang terjadi. Untuk menghapus kolom yang kosong: Pilih kolom. Ctrl -. Simpan buku kerja dan keluar dari Buku kerja yang terbuka.
Komentar ini diminimalkan oleh moderator di situs
Apakah kami punya solusi untuk menyalin data di bawah sel kosong?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih ! Baris ke-2 saya kosong di semua lembar & saya bingung.
Komentar ini diminimalkan oleh moderator di situs
kode vba bekerja dengan baik tetapi saya memerlukan lembar kerja gabungan untuk diperbarui saat saya menambahkan baris baru atau data baru ke sel di lembar kerja yang saya gabungkan. Apakah ada cara untuk melakukan itu? Terima kasih untuk bantuannya.
Komentar ini diminimalkan oleh moderator di situs
Kode makro berfungsi dengan baik untuk lembar kerja gabungan pertama, tetapi saya memerlukan lembar kerja gabungan untuk diperbarui saat saya menambahkan data ke lembar kerja yang sudah ada yang saya gabungkan. Apakah ada cara untuk melakukan itu?
Komentar ini diminimalkan oleh moderator di situs
Pernahkah Anda mengetahui cara memperbaruinya di master saat Anda menambahkan baris ke lembar kerja lain?
Komentar ini diminimalkan oleh moderator di situs
Kerja bagus.. Ini telah mengurangi pekerjaan saya dari 2 jam menjadi 10 menit.
Komentar ini diminimalkan oleh moderator di situs
Luar biasa, saya menggunakan makro dan Kutools pertama, keduanya telah sangat mengurangi pengumpulan data dan pekerjaan kompilasi saya. Terima kasih telah berbagi.
Komentar ini diminimalkan oleh moderator di situs
Saya baru saja menghapus bagian yang diberikan di bawah ini dan sekarang hanya memperbarui. Semoga ini bisa membantu... Sheets(1).Select Worksheets.Add
Komentar ini diminimalkan oleh moderator di situs
Kode berfungsi dengan baik! Saya perlu makro untuk menyalin semua data di lembar. Itu memotong baris pertama setelah Lembar 1. Hanya lembar satu yang memiliki baris header, lembar lainnya hanya data. Apakah ini mungkin?
Komentar ini diminimalkan oleh moderator di situs
Saya punya pertanyaan tentang "Gabungkan semua lembar kerja menjadi satu lembar kerja dengan kode VBA":Kode bekerja dengan sangat baik, tetapi hanya ketika kosong, ia menambahkan header, apakah mungkin untuk mengubah kode untuk mengatakan tidak mengkonsolidasikan lembar kosong?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih, Anda menyelamatkan saya satu jam dari salin dan tempel: D
Komentar ini diminimalkan oleh moderator di situs
Memiliki dua buku kerja, data yang sama tetapi yang kedua memiliki data tambahan dan beberapa data telah diperbarui, inv# Status 123 7/2 buka inv# status 123 7/2 buka 7/7 tertutup cara menggabungkan menjadi satu menghapus atau menyorot duplikat dan menambahkan setiap inv baru# bukan yang pertama
Komentar ini diminimalkan oleh moderator di situs
Berfungsi dengan baik jika Kolom A Anda bukan-=kosong. Pada lembar dengan kolom A kosong, tampaknya akan ditimpa. Di kolom dtaa saya, E tidak kosong di semua lembar. Bagaimana saya bisa mengubah Tujuan Salin untuk memperhitungkan kolom kosong A pada beberapa lembar?
Komentar ini diminimalkan oleh moderator di situs
Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 To 25 Sheets("Sheet1").Select Range("A1").Select Selection.End(xlDown).Select Range("A" & CStr(Selection.Row) + 1).Select Sheets("Sheet" & CStr(i)).Select Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection .End(xlToRight)).Pilih Selection.Cut Sheets("Sheet1").Pilih ActiveSheet.Paste Next End Sub
Komentar ini diminimalkan oleh moderator di situs
Range("A:A").SpecialCells(xlCellTypeLastCell).Pilih ActiveCell.Offset(1, 0).Pilih 'gunakan kode ini untuk memilih sel terakhir di kolom "A" [quote] Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 To 25 Sheets("Sheet1").Select Range("A1").Select Selection.End(xlDown).Select Range("A" & CStr(Selection.Row) + 1) .Pilih Sheets("Sheet" & CStr(i)).Pilih Range("A2").Pilih Range(Selection, Selection.End(xlDown)).Pilih Range(Selection, Selection.End(xlToRight)).Pilih Selection .Cut Sheets("Sheet1").Pilih ActiveSheet.Paste Next End SubOleh clopez[/ Quote]
Komentar ini diminimalkan oleh moderator di situs
KODE MAKRO BEKERJA SANGAT BAIK... PEKERJAAN FAB :-)
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL