tenpo = Array("stock1", "stock3", "stock5")
hanbai = Array("article1", "article2", "article5, "article9", "article12", "article20")
deetaa.AutoFilter Field:=9, Criteria1:=tenpo, Operator:=xlFilterValues
deetaa.AutoFilter Field:=11, Criteria1:=hanbai, Operator:=xlFilterValues