Có cách nào để SUM các file excel với nhau không? (1 người xem)

[tuenc]

Chào AC!

Em là newbie, e muốn hỏi mọi người là em đang có rất nhiều file trong 1 thư mục trên drive.
Mỗi file là 1 mảng riêng của bên em. Em muốn hỏi là có cách hay hàm nào để cộng dữ liệu của các file này với nhau ko ạ?
Em xin cảm ơn!

 

[MeThuongNho]

Có được hay không bạn upfile lên trước xem sao nha

 

[tuenc]

Có được hay không bạn upfile lên trước xem sao nha

Em cập nhập file đây ạ : https://drive.google.com/drive/folders/0BzNXJ4PDGTLdMWdhbkR6b2FBZFE

Tại đây em muốn cộng dữ liệu ở sheet T1 của Trang tính 1 và sheet T2 Trang tính 2 lấy kết quả hiển thị sang bên trang tính 3 ạ.

 

[be_09]

Em cập nhập file đây ạ : https://drive.google.com/drive/folders/0BzNXJ4PDGTLdMWdhbkR6b2FBZFE

Tại đây em muốn cộng dữ liệu ở sheet T1 của Trang tính 1 và sheet T2 Trang tính 2 lấy kết quả hiển thị sang bên trang tính 3 ạ.

Thử gộp File rồi sử dụng PivotTable.

Lưu ý:
Đặt tên cho Folder chứa File cần gộp là THU TH trong ổ D, nếu muốn đặt tên khác thì thay THU TH bằng tên gì đó rồi thay đường dẫn này trong code.

D:\THU TH

 

[Gà Công Nghệ]

Thử gộp File rồi sử dụng PivotTable.

Lưu ý:
Đặt tên cho Folder chứa File cần gộp là THU TH trong ổ D, nếu muốn đặt tên khác thì thay THU TH bằng tên gì đó rồi thay đường dẫn này trong code.

D:\THU TH

Thầy cho em hỏi dòng cuối A3 có nghĩa gì vậy thầy.
Next
Range("A3").Select

 

[be_09]

Thầy cho em hỏi dòng cuối A3 có nghĩa gì vậy thầy.
Next
Range("A3").Select

Khi chạy code xong thì chọn A3 của sheet Gop_File.

 

[Gà Công Nghệ]

Khi chạy code xong thì chọn A3 của sheet Gop_File.

Chạy code xong thì con chuột chạy vô A3. Nếu mình thay thế A3 thành cột khác như B4 vẫn được phải không thầy.

 

[Gà Công Nghệ]

Thử gộp File rồi sử dụng PivotTable.

Lưu ý:
Đặt tên cho Folder chứa File cần gộp là THU TH trong ổ D, nếu muốn đặt tên khác thì thay THU TH bằng tên gì đó rồi thay đường dẫn này trong code.

D:\THU TH

Thầy cho em hỏi thêm dòng nãy nữa thôi ạ. Offset (1,0) là sao thầy, số (1,0) mình có thay thế số khác được không hay giữ nguyên vậy thầy. Em xin cám ơn.
Range("A1000").End(xlUp).Offset(1, 0).PasteSpecial

 

[be_09]

Chạy code xong thì con chuột chạy vô A3. Nếu mình thay thế A3 thành cột khác như B4 vẫn được phải không thầy.

Khi gán dữ liệu nhiều thì nó sẽ chạy xuống cuối của sheet Gop_File.

Để cho dễ nhìn thì chọn A3 mục đích là để trở về đầu Sheet, vậy thì tùy ý muốn thay nó là B, C gì cũng được, (nếu xóa dòng này cũng không ảnh hưởng gì)

 

[be_09]

Thầy cho em hỏi thêm dòng nãy nữa thôi ạ. Offset (1,0) là sao thầy, số (1,0) mình có thay thế số khác được không hay giữ nguyên vậy thầy. Em xin cám ơn.
Range("A1000").End(xlUp).Offset(1, 0).PasteSpecial

ThisWorkbook.Worksheets(1).Activate
Range("A1000").End(xlUp).Offset(1, 0).PasteSpecial

1/ 2 dòng này có nghĩa là chọn sheet1 của File cần lấy dữ liệu, dời xuống 1 dòng (bỏ tiêu đề) và chọn Cell A2 lấy đến dòng 1000 (cái này là lấy trừ hao dữ liệu), còn muốn lấy riêng đến hết dòng có chứa dữ liệu thì dùng cách khác.

2/ Tại sao dùng Worksheets(1) mà không dùng Worksheets("Sheet1")
- Worksheets("Sheet1") là tên sheetTab (mà tên sheetTab của các các File không giống nhau khi chạy code thì nó sẽ không hiểu).
- Vì vậy, dùng sheet Index mặc định của Excel là (1) để chọn sheet1 của bất kỳ File (dù cho sheet này của các File có di chuyển chỗ nào trong File đó nó cũng hiểu).

 

[Gà Công Nghệ]

Khi gán dữ liệu nhiều thì nó sẽ chạy xuống cuối của sheet Gop_File.

Để cho dễ nhìn thì chọn A3 mục đích là để trở về đầu Sheet, vậy thì tùy ý muốn thay nó là B, C gì cũng được, (nếu xóa dòng này cũng không ảnh hưởng gì)

Dạ, vâng. Còn dòng này ý nghĩa như thế nào vậy thầy.
Range("A1000").End(xlUp).Offset(1, 0).PasteSpecial

ThisWorkbook.Worksheets(1).Activate
Range("A1000").End(xlUp).Offset(1, 0).PasteSpecial

1/ 2 dòng này có nghĩa là chọn sheet1 của File cần lấy dữ liệu, dời xuống 1 dòng (bỏ tiêu đề) và chọn Cell A2.

2/ Tại sao dùng Worksheets(1) mà không dùng Worksheets("Sheet1")
- Worksheets("Sheet1") là tên sheetTab (mà tên sheetTab của các các File không giống nhau khi chạy code thì nó sẽ không hiểu).
- Vì vậy, dùng sheet Index mặc định của Excel là (1) để chọn sheet1 của bất kỳ File (dù cho sheet này của các Fil di chuyển chỗ nào trong File đó nó cũng hiểu).

Dạ, vâng. Giờ em mới hiểu ra. Em xin cám ơn thầy rất nhiều.