Sub フィルターを複数条件で絞り込んで抽出する()
                                    '1はA列のこと、C列なら3
    Range("A1:A6").AutoFilter Field:=1, _
                          Criteria1:=Array("東京", "千葉", "埼玉"), _
                           Operator:=xlFilterValues

End Sub