excel - Excel VBA需要从特定范围设置过滤条件

Question

需要从特定范围设置过滤条件，将
错误显示为运行时错误“13”：类型不匹配使用过滤器需要选择“印度”、“英国”、“美国”等词，这些词存储在特定范围内(Bj1 到 Bj & IWRange1)

IWRange1 = ThisWorkbook.Sheets("WorkingClient").Range("Bj" & Rows.Count).End(xlUp).Row
         Dim strName As String
         arMyArray = ThisWorkbook.Sheets("WorkingClient").Range("Bj1" & ":" & "Bj" & IWRange1)

     find_IW = WorksheetFunction.Match(ThisWorkbook.Sheets("WorkingClient").Range("A15"), ThisWorkbook.Sheets("PF Working").Range("a7:zz7"), 0)
    erRange12 = WorksheetFunction.VLookup(find_IW, ThisWorkbook.Sheets("WorkingClient").Range("AZ:BB"), 3, 0)


ThisWorkbook.Sheets("PF Working").Range(erRange12 & "8" & ":" & erRange12 & IWEnd).AutoFilter Field:=find_IW, Criteria1:=Array(arMyArray, "="), Operator:=xlFilterValues

标签： excelvba