Hỏi cách đưa mảng vào Criteria:=Array(...) trong AutoFilter

Liên hệ QC

linhcute2000

Thành viên mới
Tham gia
1/4/16
Bài viết
29
Được thích
10
Chào Anh, Chị trên diễn đàn!

Xin phép Anh, Chị trên diễn đàn chỉ cho mình cách đưa mảng vào Criteria trong Autofilter.

Cụ thể mình Record macro được code sau
Mã:
Sub Macro1()
    Range("$A$1:$B$101").AutoFilter 2, Criteria1:=Array("Mat hang A001", "Mat hang A003", "Mat hang A004", "Mat hang A006", "Mat hang A008", "Mat hang A010"), Operator:=xlFilterValues
End Sub

Nhưng mình muốn chỗ Criteria1:=Array("...……") này không phải gõ bằng tay. Mà phần này mình có sẵn danh sách ở 1 vùng trên Sheet, có thể có nhiều giá trị.
Ví dụ là vùng D2: D11: chứa 10 giá trị cần Filter

Vậy phải viết code như thế nào để chỗ Criteria này là 1 mảng từ danh sách.

Mục đích: dùng autofilter các mã định sẵn để delete dòng 1 lần không phải vòng lặp qua từng giá trị để xóa dòng.

Xin trân trọng cảm ơn!
 

File đính kèm

  • Criteria Array AutoFilter.xlsm
    15 KB · Đọc: 30
Anh có thể cho em hỏi với điều kiện là mảng em mong muốn ( Lọc tại luôn dữ liệu )
+ Nếu dữ liệu từ ô A5 đến G5 rỗng thì sẽ bỏ lọc
+ Nếu dữ liệu từ ô A5 đến G5 sẽ tiếp tục lọc (Có thể là 1 ô A5 hoặc hoặc a5, B5.. hoặc tất cả các ô từ A5- B5 đều có điều kiện
Em cũng muốn hỏi thêm anh là với Việc sử dụng AutoFiler như vậy thì có cách nào cải thiện tốc độ đối với file này không ạ?
Em cảm ơn anh ạ
A5:G5 là dòng tiêu đề bảng, khi nào thì rỗng?
 
Upvote 0
Upvote 0
Anh (Chị) xem giúp em vấn đề này với ạ !
Bạn nhắc lại đề cho đỡ lủng củng chút, thấy khó hiểu quá mình đọc mãi chưa hiểu
Bài đã được tự động gộp:

Anh (Chị) xem giúp em vấn đề này với ạ !
Theo mình hiểu như bạn nói đây thì Excel đã có sẵn công cụ lọc rồi đâu cần phải dùng Advance filter
 
Lần chỉnh sửa cuối:
Upvote 0
Bạn nhắc lại đề cho đỡ lủng củng chút, thấy khó hiểu quá mình đọc mãi chưa hiểu
Bài đã được tự động gộp:


Theo mình hiểu như bạn nói đây thì Excel đã có sẵn công cụ lọc rồi đâu cần phải dùng Advance filter
Tuy nhiên nó vẫn khó thao tác hơn việc đánh luôn trên dòng trên anh ạ
 
Upvote 0
Web KT
Back
Top Bottom