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

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

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

代码能够运行，但是过滤器不能筛选出结果。。不知道为什么，求解答


[解决办法]
不知所谓，MyChar & StrJoin & MyChar 是字符串值，不等同于代码。

Dim reliquat() As String '先试试，如果出错就需要换成 Variant 数组'
ActiveSheet.Range("$A$1:$L$" & n).AutoFilter Field:=12, Criteria1:=reliquat, Operator:=xlFilterValues

查看更多 下一篇