Copy dữ liệu từ nhiều File vào một File

[Phương Phương mito]

Kính thưa Anh chị và các bạn trên diễn đàn
Em có nhiều File excel trong đó mỗi File đều có một Sheet có tên là Hanghoa và cấu trúc giống nhau. Giờ có code gì để khi em mở File Gop du lieu thì ở sheet Tong hop nó tự động copy từ tất cả các File ạ. ở đây em ví dụ 2 File ạ. Em cảm ơn ạ.

 

[be_09]

Kính thưa Anh chị và các bạn trên diễn đàn
Em có nhiều File excel trong đó mỗi File đều có một Sheet có tên là Hanghoa và cấu trúc giống nhau. Giờ có code gì để khi em mở File Gop du lieu thì ở sheet Tong hop nó tự động copy từ tất cả các File ạ. ở đây em ví dụ 2 File ạ. Em cảm ơn ạ.

Góp ý cho bạn:
1/ Tôi nhận thấy việc theo dõi của bạn chưa hợp lý, nên thiết kế lại và nhập liệu theo chiều dọc. Cụ thể: 6 Cell của Cột C quay ngang dùng làm tiêu đề cột.
2/ Các làm nêu trên thì dữ liệu mới gọn gàng và việc tổng sử dụng công cụ có sẳn thì dễ dàng như trở bàn tay.

 

[Phương Phương mito]

Cái merge tính sau đi nhé (Nếu muốn thì xuất xong xử lý cũng được nhưng tôi lười), bỏ tất cả file (Cả nguồn lẫn đích) vào một folder rồi chạy code nhé

Anh cho em hỏi chút ạ. Với đoạn code mà anh làm thì vùng copy là cố định ở các sheet Hanghoa$C3:F12 và anh đã có code như sau:

Sheets("Tonghop").Range("B" & 3 + I).CopyFromRecordset .Execute("Select * from [Hanghoa$C3:F12]")
I = I + 10 => Số 10 ở đây được hiểu là số dòng trong vùng này.

yêu cầu mới là: Nếu vẫn là vùng C3: Fx. Với x là chiều cao của cột D có dữ liệu ạ. Thì làm thế nào ạ. Tức ở đây
- from [Hanghoa$C3:F12] sẽ không còn cố định được F12
- I = I + 10 sẽ không còn cố định là 10 mà tùy theo chiều cao của cột D ở mỗi File (Tính từ dưới lên)

Vậy yêu cầu sẽ thực hiện ra sao ạ.

 

[Nhattanktnn]

Nếu vẫn là vùng C3: Fx. Với x là chiều cao của cột D có dữ liệu ạ. Thì làm thế nào ạ. Tức ở đây
- from [Hanghoa$C3:F12] sẽ không còn cố định được F12
- I = I + 10 sẽ không còn cố định là 10 mà tùy theo chiều cao của cột D ở mỗi File (Tính từ dưới lên)

Vậy thì thay cả 2 dòng đó bằng dòng này với điều kiện là C3:Fx với x đủ lớn (tại vì mình thấy file cũ có 10 dòng thì kiểu mới này chắc cũng không quá lớn, lấy tạm 50 dòng, bạn tự điều chỉnh):

Sheets("Tonghop").Cells(Rows.Count, "C").End(xlUp).Offset(, -1).CopyFromRecordset .Execute("Select * from [Hanghoa$C3:F50]")