Dalam pekerjaan kita sehari-hari, kita mungkin menghadapi masalah yang menggabungkan ratusan lembar atau buku kerja menjadi satu lembar untuk menganalisis data yang memakan 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
NAVIGASI CEPAT
Menggabungkan semua lembar buku kerja aktif menjadi satu lembar dengan VBA
Di bagian ini, saya memberikan kode VBA yang akan membuat lembar baru untuk mengumpulkan semua lembar buku kerja aktif saat Anda menjalankannya
1. Aktifkan buku kerja yang ingin Anda gabungkan semua lembarnya, lalu tekan tombol Alt + F11 untuk membuka jendela Microsoft Visual Basic for Applications
2. Di jendela popping, klik Sisipkan > 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_4. Tekan tombol F5, lalu semua data di seluruh sheet telah digabungkan menjadi sheet baru bernama Combined yang diletakkan di depan semua sheet.
Apakah Anda Ingin Mendapat Kenaikan Gaji dan Banyak Waktu Untuk Menemani Keluarga?
Tab Office Meningkatkan Efisiensi Anda Sebesar 50% Di Microsoft Office Bekerja Saat Ini
Baca Lebih Lanjut Unduh Gratis Sekarang
Menggabungkan puluhan sheet atau workbook menjadi satu worksheet/workbook dengan sekali klik
Dengan VBA, Anda hanya dapat menggabungkan lembar di buku kerja yang aktif, tetapi bagaimana cara menggabungkan lembar di seluruh buku kerja menjadi satu lembar atau buku kerja?
Gabungkan lembar di seluruh buku kerja menjadi satu lembar
Gabungkan lembar di seluruh buku kerja menjadi satu buku kerja
Untuk menyelesaikan pekerjaan ini dan memenuhi persyaratan lain pada kombinasi sheet, fungsi Combine 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 ambil opsi kedua sebagai contoh
Gabungkan beberapa lembar atau buku kerja menjadi satu buku kerja
Setelah menginstal Kutools for Excel gratis, silakan lakukan seperti di bawah ini
1. Aktifkan Excel, klik Kutools Plus > Gabungkan, sebuah dialog muncul untuk mengingatkan Anda bahwa buku kerja yang ingin Anda gabungkan perlu ditutup. Klik OK untuk melanjutkan
2. Dalam dialog Gabungkan Lembar Kerja langkah 1, centang opsi Gabungkan beberapa lembar kerja dari buku kerja menjadi satu buku kerja. Klik Berikutnya untuk pergi ke langkah wizard berikutnya
3. Klik Tambah > File atau Folder untuk menambahkan buku kerja yang ingin Anda gabungkan ke panel daftar Buku Kerja, lalu Anda bisa menentukan lembar kerja mana yang akan digabungkan dengan mencentang nama di panel daftar Lembar Kerja. Klik Next untuk pergi ke langkah terakhir wizard
4. Pada langkah ini, tentukan pengaturan yang Anda butuhkan. Kemudian klik Selesai
5. Sebuah jendela akan muncul untuk Anda memilih folder untuk menempatkan buku kerja gabungan, lalu klik Simpan
Sekarang buku kerja telah digabungkan menjadi satu buku kerja. Dan di depan semua lembar, lembar master bernama Kutools for Excel juga dibuat yang mencantumkan beberapa informasi tentang lembar dan tautan untuk setiap lembar
Demo. Gabungkan sheet/workbook menjadi satu sheet atau workbook
Kutools untuk Excel. 200+ alat praktis yang berguna, menyederhanakan tugas rumit di Excel menjadi beberapa klik
Klik untuk uji coba gratis 60 hari dengan fitur lengkap, tidak perlu kartu kreditUji Coba Gratis Ucapkan Selamat Tinggal Pada Tangan Tikus dan Spondylosis Serviks Sekarang
300 alat canggih Kutools for Excel menyelesaikan 80% tugas Excel dalam hitungan detik, menarik Anda keluar dari ribuan klik mouse.
Menggabungkan dua tabel menjadi satu dan memperbarui 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 utilitas dari Kutools for Excel
Kutools untuk Excel. lebih dari 200 add-in Excel praktis untuk menyederhanakan tugas rumit menjadi beberapa klik di Excel
Setelah menginstal Kutools for Excel gratis, silakan lakukan seperti di bawah ini
1. Klik Kutools Plus > Penggabungan Tabel untuk mengaktifkan wizard Penggabungan Tabel
Kutools untuk Excel
30 -Day Free Trial 300 Solusi Alat Canggih 80% Masalah Excel Meningkatkan Efisiensi Kerja 80%2. Di langkah 1 panduan, Anda perlu memilih tabel utama dan rentang tabel pencarian secara terpisah. Lalu klik Berikutnya
3. Periksa kolom kunci yang ingin Anda perbarui data di tabel utama berdasarkan. Klik Berikutnya
4. Kemudian periksa kolom di tabel utama yang ingin Anda perbarui datanya berdasarkan tabel pencarian. Klik Berikutnya
5. Di langkah 4 panduan, centang kolom yang ingin Anda tambahkan dari tabel pencarian ke tabel utama. Klik Berikutnya
6. Di langkah terakhir wizard, tentukan opsi pengaturan yang Anda butuhkan. Kemudian klik Selesai
Sekarang tabel utama telah memperbarui data dan menambahkan data baru berdasarkan tabel pencarian
Demo. Gabungkan sheet/workbook menjadi satu sheet atau workbook
Kutools untuk Excel. 200+ alat praktis yang berguna, menyederhanakan tugas rumit di Excel menjadi beberapa klik
Klik untuk uji coba gratis 60 hari dengan fitur lengkap, tidak perlu kartu kreditUnduh File Contoh
Alat Produktivitas yang Direkomendasikan
Office Tab - Penjelajahan Tab, Pengeditan, Pengelolaan Dokumen Di Microsoft Office 2019 - 2003 Dan Office 365
Uji coba gratis berfitur lengkap dalam 30 hariAdd-in Profesional untuk Mempercepat Excel 2019-2007, mengecilkan tugas berjam-jam 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 sebesar 50%. Seperti grup opton sekali klik dan konversi batch
Sekarang kesempatan Anda untuk mempercepat diri Anda dengan Kutools for Excel
Terlama Pertama
Urutkan komentar menurut
Terlama Pertama
Pertama Terbaru
Komentar ( 168 )
Belum ada peringkat. Jadilah yang pertama menilai
Jason Mills
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
menggunakan fungsi Makro pertama Anda. WOW. terima kasih telah memposting
Membalas
0
0
Edwin M Jason Mills
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Saya pikir kode 'Pilihan. Offset(0, 0). Ubah ukuran (Seleksi. Baris. Hitung - 1). Select' tidak harus ada. Di pihak saya, yang dilakukannya adalah memilih baris kedua dan seterusnya tanpa baris pertama
Membalas
0
0
Razina K Edwin M
sekitar 7 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki masalah yang sama. Itu menghilangkan baris pertama dari lembar kerja kedua yang ditambahkan
Membalas
0
0
KJ Razina K
sekitar 5 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Menghilangkan tajuk sehingga Anda tidak memiliki tajuk ganda
Membalas
0
0
Shannon
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Bekerja seperti pesona, terima kasih telah berbagi
Membalas
0
0
Daniel
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Terima kasih. Makro bekerja dengan sempurna
Membalas
0
0
M. Anandhi
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
saya tidak tahu, bagaimana cara menggunakan fungsi VPN di excel, bisakah Anda membantu bagaimana melakukannya
Membalas
0
0
David Tkemaladze
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Keren terima kasih. Sangat Sangat Bermanfaat
Membalas
0
0
Yogesh
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Makro satu berfungsi dengan baik. terima kasih. Itu mengagumkan. . )
Membalas
0
0
randy
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Perhatikan bahwa ini dibatasi oleh batas baris 65k, jika Anda perlu menaikkan Seleksi baris. Salin Tujuan. =Lembar(1). Rentang("A65536"). Rentang End(xlUp)(2) untuk menyelesaikan masalah
Membalas
0
0
Craig randy
sekitar 6 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Namun alat yang hebat, itu tidak menggabungkan semua 21 lembar. Bagaimana cara memperluas jangkauan?
Membalas
0
0
gula-gulaJ
sekitar 8 tahun yang lalu
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 apa baris "Seleksi. Wilayah Saat Ini. Pilih" tidak. Misalnya, jika Anda perlu menyalin SEMUA data pada spreadsheet tetapi ada baris kosong di (misalkan) baris 200, makro hanya akan menyalin hingga baris 200;
Membalas
1
0
Carlos gula-gulaJ
sekitar 6 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Apakah ada yang tahu perintah untuk menghindari masalah ini?? . Offset(1, 0). Ubah ukuran (Seleksi. Baris. Hitung - 1). Pilih dapat diselesaikan? . Baris. Hitung - 1) adalah perintah yang menyebabkan masalah. Siapa pun??
Membalas
0
0
Ed Carlos
sekitar 5 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Alih-alih memulai dari atas dan turun, mulailah dari bawah dan naik
Membalas
0
0
arno Ed
sekitar 5 tahun yang lalu
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?
Membalas
0
0
Diane arno
sekitar 5 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Untuk menghapus baris yang kosong. Pilihan 1. Pilih sel di kolom A yang perlu dihapus. Gunakan Ctrl - lalu pilih Seluruh Baris di munculan. Simpan buku kerja dan keluar. Kemudian buka buku kerja. pilihan 2. Pilih baris yang perlu dihapus. Gunakan Ctrl -. Simpan buku kerja dan keluar dari buku kerja yang terbuka. Berikan opsi 1 sehingga Anda dapat melihat apa yang terjadi. Untuk menghapus kolom yang kosong. Pilih kolom. Ctrl -. Simpan buku kerja dan keluar dari buku kerja yang terbuka
Membalas
0
0
arul kumar arno
sekitar 4 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Apakah kami memiliki solusi untuk menyalin data di bawah sel kosong?
Membalas
Laporan
0
0
Eyan gula-gulaJ
sekitar 5 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Terima kasih. Baris ke-2 saya kosong di semua lembar & saya bingung
Membalas
0
0
Lis
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
kode vba berfungsi 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?
Membalas
0
0
Lis
sekitar 8 tahun yang lalu
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 ada yang saya gabungkan. Apakah ada cara untuk melakukan itu?
Membalas
0
0
MALLORY ANDERSON Liz
sekitar 6 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Apakah Anda pernah mengetahui cara memperbaruinya di master saat Anda menambahkan baris ke lembar kerja lain?
Membalas
0
0
anto
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Kerja bagus. Ini telah mengurangi pekerjaan saya dari 2 jam menjadi 10 menit
Membalas
0
0
Idris Runijawala
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Luar biasa, saya menggunakan makro pertama dan Kutools, keduanya telah sangat mengurangi pekerjaan pengumpulan dan kompilasi data saya. Terima kasih telah berbagi
Membalas
0
0
Alper
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Saya baru saja menghapus bagian yang diberikan di bawah ini dan sekarang hanya memperbarui. Semoga ini membantu. Lembar(1). Pilih Lembar Kerja. Menambahkan
Membalas
0
0
Ikan Angela
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Kode berfungsi dengan baik. Saya memerlukan makro untuk menyalin semua data di lembar. Itu memotong baris pertama setelah Lembar 1. Hanya sheet satu yang memiliki baris header, sheet lainnya hanyalah data. Apakah ini mungkin?
Membalas
0
0
Adnan
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki pertanyaan tentang "Gabungkan semua lembar kerja menjadi satu lembar kerja dengan kode VBA". Kode bekerja dengan sangat baik, tetapi hanya ketika kosong, itu menambahkan header, dimungkinkan untuk mengubah kode untuk mengatakan tidak mengkonsolidasikan lembar kosong?
Membalas
0
0
Driehlax
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Terima kasih, Anda menyelamatkan saya satu jam untuk menyalin dan menempel. D
Membalas
0
0
Debbie
sekitar 8 tahun yang lalu
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 ditutup cara menggabungkan menjadi satu menghapus atau menyorot duplikat dan menambahkan
Membalas
0
0
Jogan
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Berfungsi dengan baik jika Kolom A Anda tidak-=kosong. Pada lembar dengan kolom A kosong, sepertinya ada yang ditimpa. Di kolom dtaa saya, E tidak kosong di semua lembar. Bagaimana saya bisa memodifikasi Tujuan Penyalinan untuk memperhitungkan kolom kosong A pada beberapa lembar?
Membalas
0
0
clopez
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 To 25 Sheets("Sheet1"). Pilih Rentang ("A1"). Pilih Pilihan. Akhir(xlDown). Pilih Range("A" & CStr(Seleksi. Baris) + 1). Pilih Lembar("Lembar" & CStr(i)). Pilih Rentang ("A2"). Pilih Rentang(Pilihan, Pilihan. Akhir(xlDown)). Pilih Rentang(Pilihan, Pilihan. Akhir(xlToRight)). Pilih Pilihan. Potong Lembar("Lembar1"). Pilih Lembar Aktif. Tempel Sub Akhir Berikutnya
Membalas
0
0
RamN clopez
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Rentang("A. SEBUAH"). Sel Khusus(xlCellTypeLastCell). Pilih Sel Aktif. 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"). Pilih Rentang ("A1"). Pilih Pilihan. Akhir(xlDown). Pilih Range("A" & CStr(Seleksi. Baris) + 1). Pilih Lembar("Lembar" & CStr(i)). Pilih Rentang ("A2"). Pilih Rentang(Pilihan, Pilihan. Akhir(xlDown)). Pilih Rentang(Pilihan, Pilihan. Akhir(xlToRight)). Pilih Pilihan. Potong Lembar("Lembar1"). Pilih Lembar Aktif. Tempel Ujung Berikutnya SubBy clopez[/quote]