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,875 Được thích 5,870 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,308 Được thích 6,000 !!!.......... 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,944 Được thích 3,433 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,944 Được thích 3,433 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,944 Được thích 3,433 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

G Vẽ mặt cắt dầm từ excel (1 người xem)

• • 
  • 
  • 

• gpe.vn
• 17/6/24
• Xây dựng ứng dụng.

Trả lời 19 Đọc 2K 2 phút trước huhumalu H D In đồng loạt phiếu thu, chi (1 người xem)

• ducminh14
• 5/12/11
• Các Add-ins cho excel

Trả lời 19 Đọc 11K 33 phút trước Thu Huyền@88 T Giúp kết nối từ Excel VBA đến Oracle database. (1 người xem)

• MinhKhai
• Thứ tư lúc 17:08
• Cơ sở dữ liệu

Trả lời 5 Đọc 189 Hôm nay lúc 12:25 MinhKhai C

• Question Question

Tự động điền thông tin từ danh sách vào template, nhờ anh chị trợ giúp

• chienminhanh
• Thứ ba lúc 22:19
• Lập Trình với Excel

Trả lời 4 Đọc 177 Hôm nay lúc 10:49 chienminhanh C CHÚC MỪNG NGÀY QUỐC TẾ PHỤ NỮ 08/03/2026 (1 người xem)

• • 

• GPE-Trợ Lý
• Hôm nay lúc 08:35
• Thông tin về diễn đàn

Trả lời 0 Đọc 420 Hôm nay lúc 08:35 GPE-Trợ Lý Chương trình lập Báo cáo khảo sát Địa chất công trình GeoSection

• • 

• PhanTuHuong
• 7/10/21
• Xây dựng ứng dụng.

Trả lời 11 Đọc 7K Hôm qua, lúc 23:04 PhanTuHuong File kiểm đếm phiếu bầu cử 2026-2031 dễ hiểu có kết quả và biên bản (6 người xem)

• • 

• katanvn
• Thứ tư lúc 13:46
• Excel Ứng Dụng

Trả lời 2 Đọc 2K Hôm qua, lúc 11:07 katanvn

• Dán lên cao

Phiên bản mới Add-in A-Tools AI v10 (2024) (2 người xem)

• • 

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

Trả lời 67 Đọc 13K Hôm qua, lúc 09:48 Nguyễn Duy Tuân

• Đã 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 87 Đọc 19K Hôm qua, lúc 09:23 HeSanbi C

• Question Question

Tải tin nhắn từ Zalo về Excel

• cantl
• 28/8/23
• Lập Trình với Excel

Trả lời 3 Đọc 2K Hôm qua, lúc 09:22 ManhDuy2026 M

• Question Question

Co, Dãn dòng vừa trang in (1 người xem)

• vova2209
• Hôm qua, lúc 00:42
• Lập Trình với Excel

Trả lời 0 Đọc 100 Hôm qua, lúc 00:42 vova2209

• Question Question

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

• • 
  • 
  • 

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

5 6 7 Trả lời 640 Đọc 95K Thứ năm lúc 21:37 jgdhkkfhkdf J 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 88 Đọc 3K Thứ năm lúc 16:03 SA_DQ H Chào cả nha! Xin tư vấn về câu chuyện quản lý nhân sự

• • 

• hotboykute
• 22/2/26
• Những vấn đề chung

Trả lời 15 Đọc 454 Thứ năm lúc 10:09 yeudoi File Excel kiểm phiếu bầu cử Quốc hội và HĐND các cấp (2 người xem)

• • 

• adua29
• 9/4/21
• Excel Ứng Dụng

Trả lời 24 Đọc 7K Thứ tư lúc 22:38 doredore1988 D

• Question Question

Trình điều khiển Web tải hóa đơn điện tử từ trang Misa (actapp.misa.vn/app)

• • 
  • 

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

Trả lời 2 Đọc 293 Thứ tư lúc 17:10 HeSanbi Gửi tặng file excel kiểm phiếu bầu cử Đại biểu Quốc hội và Hội đồng nhân dân các cấp

• • 
  • 

• adua29
• 19/5/11
• Ứng dụng cho lĩnh vực khác

Trả lời 25 Đọc 30K Thứ tư lúc 13:27 NamCT9x N T Chương trình kiểm phiếu bầu cử QH và HĐND các cấp

• • 
  • 

• thanhtratt
• 5/5/21
• Ứng dụng cho lĩnh vực khác

Trả lời 6 Đọc 2K Thứ tư lúc 11:54 PhanTuHuong

• Question Question

Lấy tỷ giá ngân hàng về file Excel bằng Power Query

• Cá ngừ F1
• 13/8/21
• PowerQuery

Trả lời 11 Đọc 3K Thứ ba lúc 21:35 ptm0412 SodokuX nhờ Copilot trợ giúp

• SA_DQ
• Thứ ba lúc 14:14
• Chơi Game với Excel

Trả lời 0 Đọc 93 Thứ ba lúc 14:14 SA_DQ 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

• Maika8008 4
• adua29 3
• SA_DQ 3
• HeSanbi 3
• chienminhanh 3
• MinhKhai 3
• doredore1988 2
• vova2209 2
• Nguyễn Duy Tuân 2
• katanvn 2
• PhanTuHuong 2
• C. Hoa 1
• ThuyMay93 1
• Tuanba1992 1
• fdxfdcfd 1
• tuquyen1711 1
• Thóc Sama 1
• ptm0412 1
• NamCT9x 1
• huhumalu 1

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

• Maika8008 7
• adua29 2
• yeudoi 2
• SA_DQ 2
• katanvn 2
• GPE-Trợ Lý 2
• mafiana 1
• ThuyMay93 1
• ptm0412 1
• doredore1988 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