オートフィルタのVBA

Question

エクセル2007を使用しています。
オートフィルタのVBAで教えてほしい事があります。

A列から"N", "Q"のみを抽出する場合、以下のコードで抽出できます。

  Dim FilterRng As Range
  
        Set FilterRng = ActiveSheet.UsedRange.Offset(2, 0)
        With FilterRng
            .AutoFilter field:=1, Criteria1:=Array("N", "Q"), Operator:=xlFilterValues
        End With

抽出条件を変化させたい場合、Criteria1に変数を設定しました。
変数は『jiseki』です。
コードは以下の通りです。

  Dim FilterRng As Range
  Dim jiseki As String

        Set FilterRng = ActiveSheet.UsedRange.Offset(2, 0)
        With FilterRng
            .AutoFilter field:=1, Criteria1:=Array(jiseki), Operator:=xlFilterValues
        End With

変数jisekiに"N", "Q"と入るようにコードを記載しましたが、上手く設定されず、以下のようになってしまいます。

Criteria1に変数を設定し複数抽出できないでしょうか？
抽出条件は場合によっては3つ以上多くなります。

Answer 1

Array() という形になっているので配列である必要があります

Dim jiseki As String

これはただの文字列変数なので
"Q","N"という文字列を渡しているのと同じになり、うまくいきません

こんな感じにしたらうまくいくと思います

Dim jiseki(1) As String
jiseki(0) = "N"
jiseki(1) = "Q"

Set FilterRng = ActiveSheet.UsedRange.Offset(2, 0)
With FilterRng
    .AutoFilter field:=1, Criteria1:=jiseki, Operator:=xlFilterValues
End With

N,Qの部分が動的に増えるなら、ReDimなどを使って対応してください

Comments

[cd987456]

早速の回答ありがとうございます。
上手く処理できました。