Tự động mở rộng vùng Điều Kiện của Advance Filter VBA (1 người xem)

[cuncon207]

Em kính chào các cao thủ excel

Em viết marco để làm advance filter, nhưng nếu viết như ở dưới thì mỗi lần chỉ chạy được lọc cho 1 điều kiện: CriteriaRange:= Range("N1:N3")
Có cách nào nếu mình thêm điều kiện vào vùng điều kiện thì excel sẽ tự hiểu và mở rộng vùng điều kiện của Advance Filter ko ạ?
Ví dụ: em để thêm 2,3 điều kiện vào CriteriaRange thì Excel sẽ tự mở ra:

CriteriaRange:= Range("N1:N5")
hay
CriteriaRange:= Range("N1:N6")

Em xin chân thành cảm ơn!

 

[cuncon207]

Em đã tự giải quyết đc. Gới mọi người coi thử nhé.

Sub getdealers()
Sheets("Findsupplier").Activate
Range("N1:N2000").Select
LastRow = WorksheetFunction.CountA(Selection)




'1/ clear old data
Range("P2:X2").Select
Range(Selection, Selection.End(xlDown)).Select
Range("P2:X100000").Clear

'2/ Get new data
Range("A1:I1").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A1:I100000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("N1:N" & LastRow), CopyToRange:=Range("P2"), Unique:=False

End Sub

 

[SA_DQ]

Bạn có thể tham khảo thêm fương thức CurentRegion trong diễn đàn trong trường hợp này

21: Cách Chọn Vùng Dải ô Hình chữ nhậtĐể chọn vùng dải ô hình chữ nhật xung quanh một ô, sử dụng phương pháp CurrentRegion. Dải ô được chọn bằng phương pháp CurrentRegion là một vùng được giới hạn bởi mọi tập hợp hàng và cột trống. Sau đây là ví dụ về cách sử dụng phương pháp CurrentRegion:

ActiveSheet.Range("a1").CurrentRegion.Select
MsgBox Selection.Address

(http://support.microsoft.com/kb/291308/vi-vn)