使用数组和xlFilterValues进行筛选
提问于 2017-03-21 16:03:57
我已经编写了一段代码，它定义了一个数组，然后使用该数组作为过滤范围的条件。下面是代码的摘录。不知何故，它过滤掉了所有东西，并且不显示过滤后的值。
Dim N As Long
Sheets("Calculations").Select
With Sheets("Calculations")
N = .Cells(Rows.Count, "A").End(xlUp).Row
ReDim ary(1 To N)
For i = 1 To N
ary(i) = .Cells(i, 1)
Next i
End With
Sheets("Data").Select
Range(Range("A1"), Range("A1").End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
With Selection
.AutoFilter Field:=36, Criteria1:=ary, Operator:=xlFilterValues
End With
回答 2
Stack Overflow用户
回答已采纳
发布于 2017-03-21 16:19:18
A列中的值是数字吗？当使用变量数组作为xlFilterValues的Criteria1时，数字必须被视为文本，所以使用ary(i) = CStr(.Cells(i, 1).Value2)来构建数组。
Dim ary As Variant
With Worksheets("sheet1").Cells(1, 1).CurrentRegion
'with true numbers in column A this DOES NOT work
ary = Array(1, 2, 3)
.AutoFilter field:=1, Criteria1:=ary, Operator:=xlFilterValues
'with true numbers in column A this DOES work
ary = Array("1", "2", "3")
.AutoFilter field:=1, Criteria1:=ary, Operator:=xlFilterValues
End With是的，这似乎有悖于直觉，但这就是如何使用带有xlFilterValues的数组来过滤数字。日期可能会出现类似的问题。
Stack Overflow用户
发布于 2017-03-21 16:10:29
使用数组过滤时，必须使用转置方法：
在Criteria1:=之后，您的代码应该显示为Application.Transpose(ary)
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/42932353
复制相关文章
![使用awk数组进行求和[通俗易懂]](https://ask.qcloudimg.com/http-save/yehe-8223537/cda6154d0fd88eed136c81b1a536271d.png)
点击加载更多
社区富文本编辑器全新改版！诚邀体验～
全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验
腾讯云开发者
