Coppy dữ liệu nhiều sheet ( theo thứ tự giảm dần) vào 1 sheet cuối cùng!

[alias1313]

Mong cách anh giúp đỡ!
Em có 11 sheet ( 01 - 11). em muốn copy dữ liệu 10 sheet đầu vào sheet11
+ Sheet11 đag chứa dữ liệu ở cột E và G, em muốn dữ liệu copy vào sẽ nối tiếp theo dữ liệu cũ ở cột E và G
+ thứ tự copy giảm dần: sheet10 trước rồi sheet09,sheet08,sheet07,...
+ Em thử viết code nhưng ko chạy đc, em ko hiểu sao dòng: Sheets(j).active bị lỗi
+ Em có đính kèm file
Em cảm ơn các anh!

Dim copy1()
dim j
for j = 10 to 1 step -1
Sheets(j).active
lr1 = Cells(Rows.count, "E").End(xlUp).Row
Sheets(j).range("E4:G"& lr1).copy
lr2 = Sheets("11").Cells(Rows.count, "E").End(xlUp).Row
Sheets("11").range("E4"& lr2).PasteSpecial
next j
End sub

 

[VetMini]

Em nghĩ tác giả viết chơi thôi. ...

Đây là code dùng chạy 1 lần rồi bỏ.
Nếu là code dùng lâu dài thì phải có chỗ tránh sheet tự copy nó.

 

[Hau151978]

Đây là code dùng chạy 1 lần rồi bỏ.
Nếu là code dùng lâu dài thì phải có chỗ tránh sheet tự copy nó.

Vâng, tác giả đang nhầm lẫn sheets(11) và sheets("11")