关于VBA过滤器的代码的问题

Question

代码如下Dim reliquat() As String
Dim StrJoin, MyChar As String
MyChar = Chr(34)
StrJoin = Join(reliquat, MyChar & ",  " & MyChar)ActiveSheet.Range("$A$1:$L$" & n).AutoFilter Field:=12, Criteria1:=Array(MyChar & StrJoin & MyChar), Operator:=xlFilterValues
代码能够运行，但是过滤器不能筛选出结果。。不知道为什么，求解答

Answer 1

不知所谓，MyChar & StrJoin & MyChar 是字符串值，不等同于代码。
Dim reliquat() As String '先试试，如果出错就需要换成 Variant 数组'
ActiveSheet.Range("$A$1:$L$" & n).AutoFilter Field:=12, Criteria1:=reliquat, Operator:=xlFilterValues