Xóa nhiều sheet theo yêu cầu

Hiai-te

Yêu THVBA
Hi anh/chị,
Em có một file excel gồm rất nhiều sheet (hơn 100 sheet). Mà có vấn đề là giữa các sheet có dữ liệu cần lấy thì có 3 sheet không cần thiết - kiểu như các sheet cần lấy là 1,5,9,13,17,....) thì có các nào dùng VBA để xóa các sheet không cần thiết đó không ạ. Em cảm ơn anh/chị.
 

tuhocvba

Administrator
Thành viên BQT
1. Record macro hoặc google từ khóa VBA delete sheet xem code là gì.
2. Sử dụng for~next là được.
Mã:
For i = cnt to 1 step -4 'cnt = so luong sheet co trong file. Ex: 101, cứ sau 4 sheet lại thực hiện công việc xóa.
    'lam cong viec xoa sheet
Next i
Đối với yêu cầu thiếu tường minh như này, không file demo, không rõ ràng điều kiện xóa sheet, thì hỗ trợ chỉ được như trên.
 
Top