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
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2