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?
- 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 Sub4. 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
Komentar ini diminimalkan oleh moderator di situs
Hai Tolong bantu saya untuk kondisi di bawah ini. Saya memiliki buku kerja berbeda yang masing-masing memiliki lebih dari 5 lembar kerja di jalur yang berbeda. Saya perlu menggabungkan semua lembar kerja dari buku kerja yang berbeda ke dalam satu buku kerja. Adakah yang bisa membantu saya menyelesaikan dengan makro. TIA
Membalas
0
0
Jay Chivo A. Karthi
sekitar 9 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
[quote]Hai Tolong bantu saya untuk kondisi di bawah ini. Saya memiliki buku kerja berbeda yang masing-masing memiliki lebih dari 5 lembar kerja di jalur yang berbeda. Saya perlu menggabungkan semua lembar kerja dari buku kerja yang berbeda ke dalam satu buku kerja. Adakah yang bisa membantu saya menyelesaikan dengan makro. TIA. Oleh A. Karthi[/quote] Silakan unduh dan instal Kutools for Excel, Anda dapat menyelesaikannya dengan cepat. Namun jika ingin menggunakan VBA, mungkin terlalu ribet. Untuk informasi lebih lanjut tentang cara menyelesaikannya, silakan kunjungi. http. // www. extendoffice. com/product/kutools-for-excel/excel-combine-worksheets-into-one. html
Membalas
0
0
Taslima A. Karthi
sekitar 6 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
KUTOOLS Solusi yang luar biasa. Saya butuh satu bantuan lagi ketika saya membuat buku kerja master kemudian warna sel lembar kerja diubah dari lembar kerja asli. Bagaimana saya bisa menyimpannya seperti lembar kerja asli
Membalas
0
0
E nic A. Karthi
sekitar 5 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Kantor kami memiliki duplikasi data, (mis. e. -nama, alamat, kota, jumlah, tanggal ditandatangani) dari beberapa aslinya excel dan mencoba menggabungkan data akan menjadi pekerjaan yang sedang berjalan. Bagaimana itu bisa dilakukan untuk menghilangkan pekerjaan ganda dan entri informasi ganda?
Membalas
0
0
Susi
sekitar 9 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Saya mendapatkan 'runtime error 1004', kelas Metode Salin Lembar Kerja gagal pada baris yang berbunyi. Lembaran. Salin Setelah. = Buku Kerja Ini. Lembar(1). Saya menggunakan Excel 2010. Bisakah Anda membantu?
Membalas
0
0
samuel Birch Susie
sekitar 6 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Hai Susie, saya sendiri sudah lama menangani masalah ini, mendapatkan kesalahan yang sama. Periksa untuk melihat apakah modul dibuat di bawah PERSONAL, bukan buku kerja aktif Anda. Setelah saya membuat modul di bawah pohon yang benar, kode di bawah ini berfungsi dengan baik. Sub GetSheets_xls() Dim Sheet As Worksheet Path = "C. \Users\yournamehere\Desktop\Testingfolder\" Filename = Dir(Path & "*. xls") Do While Filename "" Workbooks. Buka Nama File. =Jalur & Nama File, Hanya Baca. = Lembar Set Salah = Buku Kerja Aktif. Lembar(1) Lembar. Salin Setelah. = Buku Kerja Ini. Sheets(1) 'Buku Kerja Sheet Berikutnya (Nama File). Tutup Filename = Dir() Loop End Sub Semoga ini bisa membantu
Membalas
0
0
DS samuel Birch
sekitar 5 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak. Kode Anda bekerja dengan baik
Membalas
0
0
Chris F Susie
sekitar 5 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
[quote] Saya mendapatkan 'runtime error 1004', kelas Metode Salin Lembar Kerja gagal pada baris yang berbunyi. Lembaran. Salin Setelah. = Buku Kerja Ini. Lembar(1). Saya menggunakan Excel 2010. Bisakah Anda membantu?
Membalas
0
0
Chris F Susie
sekitar 5 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Pergi ke view and unhide "PERSONAL" - tampaknya ada masalah dalam mengeksekusi seluruh kode saat master disembunyikan. Anda bisa menjadikan makro asli untuk buku kerja itu, tetapi Anda harus membuat ulang semuanya setiap kali Anda ingin menggunakannya
Membalas
0
0
Amir
sekitar 9 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Hai. Terima kasih banyak file ini. . gulungan. Salam
Membalas
0
0
Henrik
sekitar 9 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Hei Tip yang bagus. Melakukan hampir semua yang saya inginkan. Dalam buku kerja gabungan, saya ingin nama lembar kerja berisi nama buku kerja asli, jadi saya tahu dari buku kerja mana data berasal. Data yang saya gabungkan, berasal dari arsip yang berbeda. Saya harus mencari entri, tetapi tidak tahu di arsip mana. Jadi dengan menggabungkan semua data dalam satu file akan memungkinkan saya untuk mencari semua arsip sekaligus. Tapi saya masih perlu tahu, di arsip mana entri itu berada. Henrik
Membalas
0
0
Kode Henrik
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Untuk kode untuk memasukkan nama file, lakukan saja ini. Sub GetSheets() Dim temp As String Path = "C. \Pengguna\. \Desktop\Excel menggabungkan\" Filename = Dir(Path & "*. xlsx") Do While Filename "" Workbooks. Buka Nama File. =Jalur & Nama File, Hanya Baca. = Suhu sebenarnya = Buku Kerja Aktif. Nama Lembar Aktif. Nama = temp ActiveWorkbook. Lembar (temp). Salin Setelah. = Buku Kerja Ini. Lembar(1) Buku Kerja(Nama File). Tutup Nama File = Dir() Loop End Sub Catatan. ini hanya untuk menyalin lembar pertama, dapat di-tweak untuk mengerjakan semua lembar
Membalas
0
0
HUKUM Kode
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Bagaimana Anda memasukkan lebih banyak lembar dan bagaimana Anda menentukan file master yang berbeda untuk menempelkan semua lembar
Membalas
0
0
Adriano Marcato Kode
sekitar 7 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Ini memang solusi yang bagus. Terima kasih. Satu Masalah, ketika saya menjalankannya seperti ini, excel akan menanyakan apakah saya ingin menyimpan perubahan sebelum menutup (Karena namanya diubah), dan saya tidak ingin melakukannya untuk setiap file (sekitar 32 per eksekusi). Apakah akan ada cara untuk menyelesaikan ini?
Membalas
0
0
Tedi
sekitar 9 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Ini luar biasa. tertawa terbahak-bahak. banyak membantu saya
Membalas
0
0
Amol
sekitar 9 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Terima kasih sobat, Anda membuat hari saya dari situs web yang sangat membantu ini. Sebenarnya saya juga ingin menggabungkan data header yang sama dari lembar yang berbeda menjadi 1 lembar kerja master, KUTOOL untuk Excel sangat membantu saya. Terima kasih sekali lagi. . )
Membalas
0
0
Dinesh
sekitar 9 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak atas informasinya yang berharga. Ini benar-benar bekerja. Langkah-langkah yang tercantum dalam artikel ini sangat memudahkan pekerjaan saya. Terima kasih, Dinesh
Membalas
0
0
hamid
sekitar 9 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
terima kasih telah berbagi pengetahuan Anda
Membalas
0
0
Nes
sekitar 9 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Bagaimana Anda membuatnya memperbarui perubahan dari buku kerja asli?
Membalas
0
0
Dado
sekitar 9 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Setelah menggabungkan lembar kerja dalam satu Buku Kerja, bagaimana Anda menyimpannya, saya tidak dapat menyimpannya bernama Buku1 dan saya mengklik simpan atau simpan sebagai tetapi tidak berfungsi. ada saran?
Membalas
0
0
Sherrill
sekitar 9 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Saya mengikuti langkah-langkah di "Gabungkan beberapa buku kerja menjadi satu buku kerja dengan VBA" dan klik "jalankan", tidak ada yang terjadi. Saya tidak mengetahui kesalahan dan tidak yakin bagaimana cara memperbaikinya. Maukah Anda membantu saya? . Terima kasih Sub GetSheets() Path = "p. \download\macro\" Nama file = Dir(Path & "*. xls") Do While Filename "" Workbooks. Buka Nama File. =Jalur & Nama File, Hanya Baca. =Benar Untuk Setiap Lembar Di ActiveWorkbook. Lembar Lembar. Salin Setelah. = Buku Kerja Ini. Lembar(1) Buku Kerja Lembar Berikutnya(Nama File). Tutup Nama File = Dir() Loop End Sub
Membalas
0
0
Sherrill
sekitar 9 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Tuan/Nyonya. Saya mengikuti langkah-langkah "Gabungkan beberapa buku kerja menjadi satu buku kerja dengan VBA" untuk menyiapkan modul berikut, tetapi tidak terjadi apa-apa. Maukah Anda membantu saya menemukan masalahnya? . \download\macro\" Nama file = Dir(Path & "*. xls") Do While Filename "" Workbooks. Buka Nama File. =Jalur & Nama File, Hanya Baca. =Benar Untuk Setiap Lembar Di ActiveWorkbook. Lembar Lembar. Salin Setelah. = Buku Kerja Ini. Lembar(1) Buku Kerja Lembar Berikutnya(Nama File). Tutup Nama File = Dir() Loop End Sub
Membalas
0
0
Dave
sekitar 9 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
untuk versi excel yang lebih baru, coba ini. Saya menyimpan buku kerja saya yang terbuka sebagai katalog, dan semua file ada di c. \temp. Sub GetSheets() Jalur = "c. \temp\" Nama file = Dir(Path & "*. xls") Do While Filename "" Workbooks. Buka Nama File. =Jalur & Nama File, Hanya Baca. =Benar Untuk Setiap Lembar Di ActiveWorkbook. Lembar Lembar. Salin Setelah. =Buku Kerja("catalog. xlsx"). Lembar(1) Buku Kerja Lembar Berikutnya(Nama File). Tutup Nama File = Dir() Loop End Sub
Membalas
0
0
Dave
sekitar 9 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Coba ini untuk versi excel yang lebih baru. Saya menyimpan buku kerja saya sebagai katalog, semua file ada di c. \temp. Sub GetSheets() Jalur = "c. \temp\" Nama file = Dir(Path & "*. xls") Do While Filename "" Workbooks. Buka Nama File. =Jalur & Nama File, Hanya Baca. =Benar Untuk Setiap Lembar Di ActiveWorkbook. Lembar Lembar. Salin Setelah. =Buku Kerja("catalog. xlsx"). Lembar(1) Buku Kerja Lembar Berikutnya(Nama File). Tutup Nama File = Dir() Loop End Sub
Membalas
0
0
jlhall07 Dave
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
[quote]Coba ini untuk versi excel yang lebih baru. Saya menyimpan buku kerja saya sebagai katalog, semua file ada di c. \temp. Sub GetSheets() Jalur = "c. \temp\" Nama file = Dir(Path & "*. xls") Do While Filename "" Workbooks. Buka Nama File. =Jalur & Nama File, Hanya Baca. =Benar Untuk Setiap Lembar Di ActiveWorkbook. Lembar Lembar. Salin Setelah. =Buku Kerja("catalog. xlsx"). Lembar(1) Buku Kerja Lembar Berikutnya(Nama File). Tutup Filename = Dir() Loop End SubBy Dave[/quote] Saya terus mendapatkan "tidak dapat menetapkan properti hanya-baca" terkait jalur. Ada ide?
Membalas
0
0
sara jlhall07
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Saya mengalami masalah ini juga. Apakah Anda mengetahuinya?
Membalas
0
0
jlhall07 sara
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Belum ada apa-apa. Belum menemukan solusi atau ada yang menyarankan perbaikan. Maaf
Membalas
0
0
Greg jlhall07
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Saya juga. Ini berfungsi 6 bulan yang lalu, terakhir kali saya harus menjalankannya. Adakah yang sudah menemukan solusinya? . Perubahan apa yang dapat menyebabkan Excel mulai menampilkan pesan ini secara tiba-tiba? . Salam, Greg. Glasgow, Skotlandia
Membalas
0
0
fux Greg
sekitar 7 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Tampaknya "Path" sekarang dicadangkan jadi gunakan sembarang nama dan ganti "Path", mis. g. "Jalur saya"
0
0
Ma Hai jlhall07
sekitar 5 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Mungkin Anda harus mengubah ReadOnly. = Benar untuk Baca Saja. =Salah, saya telah melakukan dan itu sangat membantu
Membalas
0
0
Patrick Dave
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Saya sedang mencari sesuatu di sepanjang garis ini tetapi ingin berkomentar. Bukankah Do While Filename "" harus selain ""?
Membalas
0
0
Anand Darbha
sekitar 9 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Saya ingin menggabungkan semua lembar menjadi satu lembar di mana judulnya sama. tolong bantu
Membalas
0
0
Nazeer
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Hai, saya mencoba menggunakan makro di atas untuk menyusun beberapa file, sayangnya tidak ada hasil. dapatkah seseorang membantu saya menyingkirkan menyusun file secara manual
Membalas
0
0
Kristen
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
saya punya 112 lembar excel yang ingin saya masukkan ke dalam satu lembar tanpa salin dan tempel. Tolong bantu saya
Membalas
0
0
Dileep
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Saya Memiliki buku kerja yang berisi sekitar 250 Lembar. Saya perlu Cobain dalam satu lembar. tolong beri saya solusi
Membalas
0
0
Jahe41
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Cobalah ini. Saya mendapatkan ini dari situs lain tetapi sayangnya saya tidak dapat mengingat nama wanita itu jadi saya minta maaf karena tidak menyebutkannya, salah saya" Gabungkan beberapa WB di Excel. INGAT UNTUK MENGUBAH MyPath =. Sub Merge2MultiSheets() Redupkan wbDst Sebagai Buku Kerja Redupkan wbSrc Sebagai Buku Kerja Redupkan wsSrc Sebagai Lembar Kerja Redupkan MyPath Sebagai String Dim strFilename Sebagai Aplikasi String. DisplayAlerts = Aplikasi Salah. EnableEvents = Aplikasi Salah. ScreenUpdating = Salah MyPath = "\\MyPath\etc\etc. " Atur wbDst = Buku Kerja. Tambah(xlWBATWorksheet) strFilename = Dir(MyPath & "\*. xls", vbNormal) If Len(strFilename) = 0 Kemudian Exit Sub Do Sampai strFilename = "" Set wbSrc = Workbooks. Buka (Nama file. =MyPath & "\" & strFilename) Tetapkan wsSrc = wbSrc. Lembar kerja(1) wsSrc. Salin Setelah. = wbDst. Lembar kerja (wbDst. Lembar kerja. Hitung) wbSrc. Tutup False strFilename = Dir() Loop wbDst. Lembar kerja(1). Hapus Aplikasi. DisplayAlerts = Aplikasi Sejati. EnableEvents = Aplikasi Sejati. Pembaruan Layar = True End Sub
Membalas
0
0
Ghulam Jahe41
sekitar 5 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Hai, saya menambahkan kode ke dalam modul. Bernama file Master buku Excel. Di mana dalam kode yang saya tambahkan. Terima kasih
Membalas
0
0
Niki Foster
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Tak satu pun dari ini bekerja untuk saya, saya akhirnya mendapatkan yang ini untuk bekerja. FYI saya menggunakan 2010 'Deskripsi. Menggabungkan semua file dalam folder menjadi file master. Sub MergeFiles() Dim path Sebagai String, ThisWB Sebagai String, lngFilecounter Selama Dim wbDest Sebagai Workbook, shtDest Sebagai Worksheet, ws Sebagai Worksheet Dim Filename Sebagai String, Wkb Sebagai Workbook Dim CopyRng Sebagai Range, Dest Sebagai Range Dim RowofCopySheet As Integer RowofCopySheet = . Nama path = "mypath. "' Jangan lupa untuk mengubah Aplikasi ini. EnableEvents = Aplikasi Salah. ScreenUpdating = Setel Salah shtDest = ActiveWorkbook. Sheets(1) Nama file = Dir(path & "\*. xls", vbNormal) If Len(Filename) = 0 Kemudian Exit Sub Do Hingga Filename = vbNullString If Not Filename = ThisWB Kemudian Setel Wkb = Workbooks. Buka (Nama file. =path & "\" & Filename) Atur CopyRng = Wkb. Lembar(1). Range(Sel(RowofCopySheet, 1), Sel(ActiveSheet. Rentang Terpakai. Baris. Hitung, Lembar Aktif. Rentang Terpakai. Kolom. Hitung)) Tetapkan Tujuan = shtTujuan. Rentang ("A" & shtDest. Rentang Terpakai. Sel Khusus(xlCellTypeLastCell). Baris + 1) CopyRng. Salin Wkb Tujuan. Tutup Salah Akhir Jika Filename = Dir() Loop Range("A1"). Pilih Aplikasi. EnableEvents = Aplikasi Sejati. ScreenUpdating = True MsgBox "Selesai. "Akhir Sub
Membalas
0
0
michelle Niki Foster
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara mengedit ini agar data yang ditarik selalu dimulai di baris paling atas?
Membalas
0
0
orivera michelle
sekitar 8 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Ubah baris ini. RowofCopySheet = 2 hingga RowofCopySheet = 1
Membalas
0
0
Mohideen Niki Foster
sekitar 6 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
HI , Saya memiliki beberapa File Excel (satu lembar) folder berbeda dengan proteksi kata sandi. saya ingin akhir hari menggabungkan semua data ke satu file Master. Setiap kali saya harus memasukkan kata sandi dan membuka file dan menyalin tempel ke file master. Mohon bantu saya dengan kode VBA untuk ini