Cách gộp nhiều file excel, lọc và tính tổng dữ liệu (1 người xem)

[Higabana]

em mới mò mẫm về VBA nên còn rất rất nhiều điều chưa biết mong mọi người chỉ giáo!
Yêu cầu của sếp là lọc ra KH cho báo cáo tổng,tính tổng số KH của từng đại lý, KH nào là KH mua lẻ, KH nào là KH mua sỉ, tính tổng số KH của mỗi loại! mẫu kết quả báo cáo tổng là file Book1

mỗi KH sẽ có 1 mã KH cố định, mỗi ĐL có 1 mã ĐL cố định, một KH có thể phát sinh nhiều lần mua, nhưng chỉ tính là 1 - Advanced là lọc không trùng!

sẽ có khoảng 14 đại lý, e chỉ lấy mãu khoảng 9 đại lý!

nhờ mọi người giúp e nối 14 file lại, mỗi file khoảng 50k+ dòng , lọc và đếm tổng số KH của từng ĐL, tổng KH mua lẻ, tổng KH mua sỉ và kết quả sẽ nằm ở 1 file excel khác hay ít nhất là sẽ nằm ở 1 sheet khác!

em làm bằng Advanced thì rất lâu!

Rất mong được sự giúp đỡ của mọi người!!!

 

[be_09]

Code bài 19 chỉ dùng cho 32 bit.
Excel 2003 chỉ có 65.536 dòng không đủ số dòng cho phép nên bị lỗi là phải rồi, sử dụng File này:

 

[Higabana]

Code bài 19 chỉ dùng cho 32 bit.
Excel 2003 chỉ có 65.536 dòng không đủ số dòng cho phép nên bị lỗi là phải rồi, sử dụng File này:

- em chạy thử trên file thực thì nó bị lỗi như hình...hàng trên là tiêu đề, hàng dưới chỉ có 1 dòng dữ liệu

- em có chỉnh lại code 1 chút để nó có thể lấy hết các cột mà em cần - Hình 1

Range("A1:BX" & Range("A1000").End(xlUp).Row).Copy

- giữ nguyên code thì nó ra như vầy - Hình 2

Range("A2:F" & Range("A1000").End(xlUp).Row).Copy

 

[Higabana]

- nếu em cho file "Gop File vao sheet" vào cùng forder của các file báo cáo thì nó sẽ ra như hình.

- còn như ở #22 là em để file "Gop File vao sheet" ở forder ngoài!

 

[be_09]

Trong code tôi đã ghi chú rõ như thế này rồi cần gì phải hỏi nữa.

'Láy du lieu các File tù dong 2 (không tính tiêu dè)
Range("A2:F" & Range("A1000").End(xlUp).Row).Copy

- Với dòng code trên đã thể hiện rõ vùng cần Copy dữ liệu là A2 đến cột F (chỉ thay F= AX).
- Hình bài 23 là do cấu trúc về tiêu đề các File trong Folder không giống nhau nên ra kết quả sai.
- File bài 21 không có đặt điều kiện bỏ qua chính nó, vì vậy để chung Foler sẽ bị lỗi.

 

[Higabana]

Trong code tôi đã ghi chú rõ như thế này rồi cần gì phải hỏi nữa.

- Với dòng code trên đã thể hiện rõ vùng cần Copy dữ liệu là A2 đến cột F (chỉ thay F= AX).
- Hình bài 23 là do cấu trúc về tiêu đề các File trong Folder không giống nhau nên ra kết quả sai.
- File bài 21 không có đặt điều kiện bỏ qua chính nó, vì vậy để chung Foler sẽ bị lỗi.

- cấu trúc file là như nhau ah, vì nếu khác nhau thì em ko nối được khi dùng phần add-in có sẵn trên máy (nhưng nó hạn chế số dòng - 65k dòng).

- hướng dẫn giúp em cái điều kiện bỏ qua chính nó! em có thể dùng cái add-in kia của diễn đàn để chạy, nhưng code dài, ko ai hướng dẫn cho e hiểu, code này ngắn, gọn, e có thể mờ mợ hiểu được chút!

- 1file báo cáo của ĐL sẽ có khoảng 24-30 cột giống nhau còn số lượng dòng thì khoảng 30 - 40k dòng/file