Sử dụng lệnh Sheets(Array(...)).Copy copy các sheet với số lượng không biết trước (1 người xem)

[titanic20072007]

Chào ae GPE.
Mình đang tạo một macro copy sheet thành tệp mới. Có một vướng mắc thế này:
Nếu copy một số sheet nhất định thì với lệnh Sheets(Array(...,...,...)).Copy mình làm được rồi. Nhưng tình huống của mình mắc là số sheet của tệp cần copy ra tệp mới không biết trước, mình đã sửa lệnh Sheets(Array(...,...,...)).Copy thành: For i =1 to 15 Sheets(Array(Ten(i,1))).Copy với Ten(i,1) là mảng chứa tên các sheet cần copy nhưng vẫn không được.
Nhờ ae giúp đỡ.

 

[Kiều Mạnh]

trời cái này mà cũng viết code sao ta.
sao không f12--đặt tên file mới-- sau đó xóa sheet TKB la xong. code chi cho mệt .

nếu chủ thớt là em thì làm vậy đi cho nhanh đường này chủ thớt muốn như vậy nên tham gia một tí cho vui thôi Anh