Xin Code VBA Gộp Nhiều File Thành 1 File | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Hàm và công thức Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Xin code VBA gộp nhiều file thành 1 file (1 người xem)

• Thread starter Thread starter kiendaide1
• Ngày gửi Ngày gửi 11/10/21

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) K

kiendaide1

Thành viên chính thức

Tham gia 3/4/13 Bài viết 93 Được thích 4 Em có rất nhiều file giống nhau em muốn ghép vào 1 file excel nhưng em chỉ muốn lấy 1 ròng số thứ tự 13 mà không muốn lấy các ròng khác. xin các bác giúp đỡ lệnh VBA ạ. Em có file đính kèm

File đính kèm

• DS.xlsx DS.xlsx 10.8 KB · Đọc: 15

Maika8008

Thành viên gạo cội

Tham gia 12/6/20 Bài viết 4,863 Được thích 5,848 Donate (Momo) Giới tính Nam

kiendaide1 đã viết: Em có rất nhiều file giống nhau em muốn ghép vào 1 file excel nhưng em chỉ muốn lấy 1 ròng số thứ tự 13 mà không muốn lấy các ròng khác. xin các bác giúp đỡ lệnh VBA ạ. Em có file đính kèm Nhấp chuột vào đây để mở rộng...

1/ Bạn đăng lộn box. Cần phải đăng vào box Lập trình với Excel. 2/ dòng chứ không phải ròng. H

Hoàng Tuấn 868

Đăng ký hôm qua

Tham gia 9/11/19 Bài viết 6,307 Được thích 5,997 !!!.......... K

kiendaide1

Thành viên chính thức

Tham gia 3/4/13 Bài viết 93 Được thích 4 Vạy ạ. em xin lõi ạ Q

qtm1987

Thành viên thường trực

Tham gia 15/9/09 Bài viết 352 Được thích 264 Nghề nghiệp Kế toán tổng hợp Mình dùng code Getdata của anh Ndu bao lâu nay gộp file trong cùng thư mục thấy rất ổn (Máy mình xài office 2016 32bit) Sub main() mình đã đặt các tham số cho phù hợp với yêu cầu của bạn: - SheetName = "Mẫu số 04" (các file khác phải cùng tên sheet này mới tổng hợp được) - RangeSheet = B13:L13 (chỉ lấy hàng 13) p/s: bài bạn nhầm box nhưng nhìn file của bạn mình thấy là biểu mẫu trợ cấp cho người lao động do ảnh hưởng dịch Covid nên hy vọng bạn sẽ tổng hợp nhanh chóng.

File đính kèm

• Test_DS.xlsm Test_DS.xlsm 25.9 KB · Đọc: 44

H

HUONGHCKT

Zalo 0986997214

Tham gia 30/8/12 Bài viết 1,939 Được thích 3,422 Donate (Paypal) Donate (Momo) Giới tính Nam

kiendaide1 đã viết: Em có rất nhiều file giống nhau em muốn ghép vào 1 file excel nhưng em chỉ muốn lấy 1 ròng số thứ tự 13 mà không muốn lấy các ròng khác. xin các bác giúp đỡ lệnh VBA ạ. Em có file đính kèm Nhấp chuột vào đây để mở rộng...

Bạn thử file này xem sao. Code của Anh NDU hay của 1 anh nào đó trên diên đàn mình có chế cháo lại đôi chút. Khi nhấn nút TỔNG HỢP sẽ hiện lên một bảng cho bạn chọn các file cần tổng hợp (bằng cách bôi đen và nhấn OK) và chờ xem kết quả. Kết quả trả về đang để bắt đầu từ ô A13đến ô L .... Ô L13:L... là tên của file và sheet đã được lấy dữ liệu. bạn có thể thay đổi hoặc xóa nếu thấy cần thiết. Lưu ý Trong các File có nhiều sheet thì cũng lấy hết và chỉ lấy dòng 13 (Row=13). nếu Trong mỗi Worbook chỉ lấy 1 hoặc 2, 3 Sh gì đó, hoặc lấy nhiều dòng theo điều kiện nào đó thì phải sửa lại code

File đính kèm

• DS (cua MrKienDaiDe1).xlsm DS (cua MrKienDaiDe1).xlsm 22.5 KB · Đọc: 47

K

kiendaide1

Thành viên chính thức

Tham gia 3/4/13 Bài viết 93 Được thích 4

qtm1987 đã viết: Mình dùng code Getdata của anh Ndu bao lâu nay gộp file trong cùng thư mục thấy rất ổn (Máy mình xài office 2016 32bit) Sub main() mình đã đặt các tham số cho phù hợp với yêu cầu của bạn: - SheetName = "Mẫu số 04" (các file khác phải cùng tên sheet này mới tổng hợp được) - RangeSheet = B13:L13 (chỉ lấy hàng 13) p/s: bài bạn nhầm box nhưng nhìn file của bạn mình thấy là biểu mẫu trợ cấp cho người lao động do ảnh hưởng dịch Covid nên hy vọng bạn sẽ tổng hợp nhanh chóng. Nhấp chuột vào đây để mở rộng...

Hay quá em cảm ơn bác ạ. vidu em muốn tổng hợp danh sách dài (độ dài các danh sách không bằng nhau) em muốn tổng hợp thành 1 file thì xóa RangeSheet = B13:L13 đi phải không ạ Bài đã được tự động gộp: 13/10/21

HUONGHCKT đã viết: Bạn thử file này xem sao. Code của Anh NDU hay của 1 anh nào đó trên diên đàn mình có chế cháo lại đôi chút. Khi nhấn nút TỔNG HỢP sẽ hiện lên một bảng cho bạn chọn các file cần tổng hợp (bằng cách bôi đen và nhấn OK) và chờ xem kết quả. Kết quả trả về đang để bắt đầu từ ô A13đến ô L .... Ô L13:L... là tên của file và sheet đã được lấy dữ liệu. bạn có thể thay đổi hoặc xóa nếu thấy cần thiết. Lưu ý Trong các File có nhiều sheet thì cũng lấy hết và chỉ lấy dòng 13 (Row=13). nếu Trong mỗi Worbook chỉ lấy 1 hoặc 2, 3 Sh gì đó, hoặc lấy nhiều dòng theo điều kiện nào đó thì phải sửa lại code Nhấp chuột vào đây để mở rộng...

Em cảm ơn bác ạ. bác có thể cho em xin file gốc được ko ạ. vì rất nhiều dư liệu em muốn gọp nó thành 1 file ạ H

HUONGHCKT

Zalo 0986997214

Tham gia 30/8/12 Bài viết 1,939 Được thích 3,422 Donate (Paypal) Donate (Momo) Giới tính Nam

kiendaide1 đã viết: Em cảm ơn bác ạ. bác có thể cho em xin file gốc được ko ạ. vì rất nhiều dư liệu em muốn gọp nó thành 1 file ạ Nhấp chuột vào đây để mở rộng...

bạn chạy code tôi gủi cho thấy thế nào? dữ liệu nhiều , lấy theo điều kiện nào? lấy toàn bộ hay chỉ lấy một số dòng và một số cột thỏa mãn điều kiện nào đó cũng được mà, bởi vì là code sẽ chạy theo quy trình là duyệt từng file trong khối file đã chọ code sẽ duyệt tiếp từng workbook, sau dó duyệt tiếp tùng sheet trong workbook đó, nếu tên sheet thỏa thì gán vùng dũ liệu thành một mảng, duyệt trong mảng ấy lấy dữ liệu cần thiết đưa vào một mảng khác( mảng KQ),sau khi duyệt hết các các wb, các sh, thì đóng wb lại duyệt sang file khác,cứ tuần tự như vậy cho đến hết.kết thúc là gán xuống sh (sh TONGHOP).và end sub. code của anh NDU hay đề tài này có rất nhiều trên diễn đàn này bạn chụi khó tìm và nghiên cứu thêm nhé. K

kiendaide1

Thành viên chính thức

Tham gia 3/4/13 Bài viết 93 Được thích 4

HUONGHCKT đã viết: bạn chạy code tôi gủi cho thấy thế nào? dữ liệu nhiều , lấy theo điều kiện nào? lấy toàn bộ hay chỉ lấy một số dòng và một số cột thỏa mãn điều kiện nào đó cũng được mà, bởi vì là code sẽ chạy theo quy trình là duyệt từng file trong khối file đã chọ code sẽ duyệt tiếp từng workbook, sau dó duyệt tiếp tùng sheet trong workbook đó, nếu tên sheet thỏa thì gán vùng dũ liệu thành một mảng, duyệt trong mảng ấy lấy dữ liệu cần thiết đưa vào một mảng khác( mảng KQ),sau khi duyệt hết các các wb, các sh, thì đóng wb lại duyệt sang file khác,cứ tuần tự như vậy cho đến hết.kết thúc là gán xuống sh (sh TONGHOP).và end sub. code của anh NDU hay đề tài này có rất nhiều trên diễn đàn này bạn chụi khó tìm và nghiên cứu thêm nhé. Nhấp chuột vào đây để mở rộng...

da rất ổn ạ. em muốn xin code lấy toàn bộ dư liệu và tên sheet cho thông dung không phải đổi tên sheet ạ. em cảm ơn anh H

HUONGHCKT

Zalo 0986997214

Tham gia 30/8/12 Bài viết 1,939 Được thích 3,422 Donate (Paypal) Donate (Momo) Giới tính Nam

kiendaide1 đã viết: da rất ổn ạ. em muốn xin code lấy toàn bộ dư liệu và tên sheet cho thông dung không phải đổi tên sheet ạ. em cảm ơn anh Nhấp chuột vào đây để mở rộng...

thì đó. như mình đã nói code sẽ duyệt từng ws có trong wb và lấy dữ liệu. nếu muốn nấy dữ liệu ở 1 số sh có tên là A1, A4, A7 ...trong code sau chỗ duyệt từng ws trong wb bạn thêm vào dòng lệnh: if ws.name = "A1" or ws.name="A2"or ws.name="A7".... then khối lệnh cần tổng hợp và end if ở cuối trước khi next wb là được. nếu nhiều sh cần tổng hợp thì có thể để trong 1 cột nào đó (ví dụ E1:E( m ) của Sh TONGHOP và khi đó code sẽ là For n=1 to m ' Tổng số Sh cần lấy dữ liệu If Ws.name=Sheets("TONGHOP").range("E"&n) then khối lệnh end if next n ... next Ws ..... next Wb tốt nhất là bạn gửi file tonghop và 1 vài file cần tổng hợp lên (nói rõ kết quả mong muốn) sẽ có người giúp bạn bằng vba, ado, power table,pivot table, sqr. nhiều nhiều lắm, nếu chịu khó tìm hiểu thì không thiếu. Lần chỉnh sửa cuối: 13/10/21 Q

qtm1987

Thành viên thường trực

Tham gia 15/9/09 Bài viết 352 Được thích 264 Nghề nghiệp Kế toán tổng hợp

kiendaide1 đã viết: Hay quá em cảm ơn bác ạ. vidu em muốn tổng hợp danh sách dài (độ dài các danh sách không bằng nhau) em muốn tổng hợp thành 1 file thì xóa RangeSheet = B13:L13 đi phải không ạ Nhấp chuột vào đây để mở rộng...

Bạn vẫn phải đặt RangeSheet xác định vị trị cột bắt đầu đến cột kết thúc và hàng bắt đầu đến hàng kết thúc (vd: lấy dữ liệu 60.000 dòng thì đặt RangeSheet = B13:L60000 là lấy dữ liệu từ cột B13 đến cột L60000) Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Có thể tô màu tiêu đề bài viết để làm nổi bật giữa những tiêu đề các bài đăng khác được chăng?

• • 

• SA_DQ
• Hôm qua, lúc 04:27
• Những góp ý với diễn đàn

Trả lời 1 Đọc 69 Hôm qua, lúc 08:02 Hai Lúa Miền Tây Copilot bình luận các ván cờ vua từng ngày.

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 67 Đọc 2K Hôm qua, lúc 05:34 SA_DQ H Lọc giá trị duy nhất theo cụm

• hoaiantrinh
• Thứ ba lúc 14:58
• Hàm và công thức Excel

Trả lời 7 Đọc 191 Thứ tư lúc 22:43 87kilua

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (2 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

5 6 7 Trả lời 624 Đọc 92K Thứ tư lúc 18:19 tombongtep T N Tạo COM Add-In bằng Visual C++ (1 người xem)

• • 

• nguyendang95
• 6/7/25
• Excel và các ngôn ngữ lập trình khác

Trả lời 18 Đọc 2K Thứ ba lúc 21:07 nguyendang95 N M Bảo mật code VBA autocad!

• Michael Bit
• Thứ hai lúc 08:44
• Hỏi đáp những vấn đề khác

Trả lời 12 Đọc 306 Thứ ba lúc 19:17 Michael Bit M

• Dán lên cao
• Suggestion Suggestion

CHÚC MỪNG NĂM MỚI BÍNH NGỌ 2026 (1 người xem)

• • 
  • 
  • 

• GPE-Trợ Lý
• Thứ ba lúc 10:45
• Bài viết nổi bật và thông báo

Trả lời 0 Đọc 130 Thứ ba lúc 10:45 GPE-Trợ Lý L Thu Chi Gia Đình

• • 

• lehang0812
• 5/2/26
• TPHCM

Trả lời 5 Đọc 255 Thứ ba lúc 10:19 nguoiconxunui N

• Đã giải quyết

FitRowXL v1.3 - Giãn dòng tự động và bổ trợ in ấn Excel (*01/2026 mới) (1 người xem)

• • 
  • 

• HeSanbi
• 18/4/21
• Lập Trình với Excel

Trả lời 77 Đọc 30K Thứ hai lúc 19:00 chothadiem

• Đã giải quyết

LocalizeXL v1.73 - Làm nổi bật ô đang chọn và cuộn trang tự động (phiên bản 2026)

• • 
  • 
  • 

• HeSanbi
• 5/3/21
• Lập Trình với Excel

Trả lời 85 Đọc 18K Chủ nhật lúc 21:43 chothadiem

• Dán lên cao

Phiên bản mới Add-in A-Tools AI v10 (2024)

• • 

• Nguyễn Duy Tuân
• 13/9/24
• BLUESOFTS: A-Excel, A-Tools

Trả lời 62 Đọc 13K Thứ bảy lúc 18:10 Nguyễn Duy Tuân E Giúp Đặt tên lại (Rename) cho hàng loạt các file PDF theo cùng 1 quy tắc

• Excel my love_1
• 15/4/23
• Tin học mở rộng

Trả lời 4 Đọc 4K 6/2/26 luongha.ktqd L

• Question Question

Chia sẻ một thuật toán đơn giản để trộn cells

• • 
  • 

• Quang_Hải
• 4/2/26
• Lập Trình với Excel

Trả lời 12 Đọc 407 5/2/26 Quang_Hải TaxCode v4.33 - Tra cứu mã số thuế từ tổng cục thuế, masothue và thuvienphapluat

• • 
  • 

• HeSanbi
• 27/11/25
• Các Add-ins cho excel

Trả lời 19 Đọc 3K 5/2/26 HeSanbi

• Question Question

Tạo Add-in, tệp Excel, Word, Access tự động cập nhật phiên bản mới từ Cloud cho chính nó

• • 
  • 

• HeSanbi
• 2/2/26
• Lập Trình với Excel

Trả lời 1 Đọc 271 4/2/26 HeSanbi Hàm EXACT

• • 

• TranThanhPhong
• 30/4/14
• Dự án: Công thức & Hàm 97-2019

Trả lời 3 Đọc 9K 3/2/26 ptm0412 Add-Ins cho Excel 2007 -2016 32bit và 64bit (3 người xem)

• • 
  • 
  • 

• giaiphap
• 8/8/15
• Các Add-ins cho excel

4 5 6 Trả lời 518 Đọc 226K 3/2/26 Gà Công Nghệ V Một Excel add-in vibe coding

• • 

• vietdang170
• 28/1/26
• Các Add-ins cho excel

Trả lời 18 Đọc 777 3/2/26 vietdang170 V H Xin giúp đặt điều kiện trong Conditional Formating

• hoanglocphat
• 2/2/26
• Hỏi đáp những vấn đề khác

Trả lời 6 Đọc 234 3/2/26 Gà Con yêu VBA Xin giúp hàm excel để tìm 1 số trong số có 2 chữ số

• mrjun80
• 31/1/26
• Hàm và công thức Excel

Trả lời 4 Đọc 229 1/2/26 Gà Con yêu VBA Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• HeSanbi 14
• chothadiem 11
• Michael Bit 6
• HieuCD 5
• Gà Công Nghệ 5
• YêuCN 4
• Officexinh 4
• vietdang170 4
• pycckuu410 3
• chiendich 3
• DeTong 3
• hoanglocphat 3
• LOGANWover 2
• VietHoangPhan 2
• Gà Con yêu VBA 2
• Quang_Hải 2
• hoaiantrinh 2
• vuvannguyen1972 1
• ptm0412 1
• Hai Lúa Miền Tây 1

Thành viên có điểm tương tác cao nhất tháng

• HeSanbi 19
• GPE-Trợ Lý 9
• Quang_Hải 7
• HieuCD 6
• vietdang170 5
• Gà Con yêu VBA 4
• LOGANWover 3
• pycckuu410 3
• chiendich 3
• DeTong 3
• Phuocam 3
• hungvinh1402 2
• YêuCN 2
• Officexinh 2
• 87kilua 2
• SA_DQ 2
• Hai Lúa Miền Tây 2
• HUONGHCKT 2
• Michael Bit 1
• nguyendang95 1

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Hàm và công thức Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom