Code cho Autofilter

[hoangexcell]

Hi ACE,

Mình cần lọc 1 bảng dữ liệu theo kiểu loại trừ dần, ví dụ bên dưới là lần 1, lọc bỏ "C" thì record macro nó ra đoạn như sau:

ActiveSheet.Range("$A$6:$CM$364").AutoFilter Field:=71, Criteria1:=Array( _
"A", "B", _
"="), Operator:=xlFilterValues

Vấn đề giờ mình muốn auto lần lượt bỏ B rồi C ... tức lặp lần lượt hết các giá trị của cột filter (71) thì mình không biết cách:

1. Vòng lặp để tạo chuỗi loại trừ lần lượt
2. Cú pháp để bỏ vào điều kiện trong code filter trên (thay chổ array(_ ..) cho nó tự động

Mong cả nhà giúp 1 tay ạ. Chân thành cảm ơn!

 

[hoangexcell]

Bạn muốn động làm sao? Truyền từ đâu?

Mình làm được rồi nha. Tại sai xót chổ khác. Đúng lập trình phải tỉ mỉ cẩn thận ghê gớm