【VBA】 3개 이상의 키워드로 AutoFilter를 이용하는 경우

배경

결과

Sub main()
    ' 変数定義
    Dim ws1 As Worksheet, ws2 As Worksheet, targetnumber As Long, targetArray
    Set ws1 = Sheets("Sheet1")
    Set ws2 = Sheets("Sheet2")
    targetnumber = ws2.Range("B2")  ' キーワード数
    ' キーワードの配列変換処理。セル範囲を二次元配列から一次元配列に変換
    targetArray = WorksheetFunction.Transpose(ws2.Range("A2:A" & targetnumber + 1))
    ' オートフィルター処理
    ws1.Range("A1").AutoFilter 2, targetArray, xlFilterValues
End Sub

참고