Option Explicit
Sub AdvacedFilter()
Range("A1:E9").Select
Range("A1:E9").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"H1:H2"), CopyToRange:=Range("B13:D13"), Unique:=False
End Sub
Chú í:
1 * Bạn phải thêm tại 'E1' tên 1 trường, tôi ví dụ [Loai]
* Tất nhiên tại 'H1' bạn cũng có tên này;
* Tại 'H2' bạn nhập "SÀN 1 PHƯƠNG"
SAU ĐÓ LÀ CHẠY MACRO;
2* tại vùng 'E2:E9' ta có thể dùng công thức: ="SÀN " & IF(D2>2; "1";"2") & " PHƯƠNG"