【篩選多個值】
'若工作表有自動篩選，先行移除自動篩選設定
'先將篩選條件值塞入arrCT()陣列
'加入自動篩選條件
If Not ActiveSheet.AutoFilter Is Nothing Then ActiveSheet.AutoFilterMode = False
Dim arrCT() As String
ActiveSheet.Range("$G$10:$G$10000").AutoFilter Field:=1, Criteria1:=arrCT, Operator:=xlFilterValues
相關課程：
章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※