使用autofilter按2个数组进行筛选的代码问题

sero61

ykcbf1100 发表于 2025-4-22 10:35

感谢草爷指教。草爷是字典之王，还没细看，疑惑的是为什么非要用字典。筛选条件单列是存在重复，2列合在一并是不重复的。autofilter用到的条件也是字典键的取重功能

sero61

ynzsvt 发表于 2025-4-22 10:35
看看高级筛选符合要求不

先感谢你的参与。问题不是高级筛选会不会用，关键是高级筛选在原表中筛选的结果不全
  知其然还要知其所以然

温馨云

sero61 发表于 2025-4-22 11:48
先感谢你的参与。问题不是高级筛选会不会用，关键是高级筛选在原表中筛选的结果不全
  知其然还要知其所 ...

最后一句可以删掉了。求助要端正态度，这么牛了还发什么求助贴。打击老师们的积极性，对我们菜鸟的进步非常不利。

ynzsvt

温馨云 发表于 2025-4-22 12:00
最后一句可以删掉了。求助要端正态度，这么牛了还发什么求助贴。打击老师们的积极性，对我们菜鸟的进步非 ...

没事，就这点算不了打击，比死不鸟人好多了。

ynzsvt

1. Sub mtfilter()
   
2. Dim arr, brr
   
3. arr = Application.Transpose(Sheet1.Range("F2:F3"))
   
4. brr = Application.Transpose(Sheet1.Range("g4:g5"))
   
5. Sheet1.Range("a8:c12").AutoFilter field:=2, Criteria1:=arr, Operator:=xlFilterValues
   
6. Sheet1.Range("a8:c12").AutoFilter field:=3, Criteria1:=brr, Operator:=xlFilterValues
   
7. End Sub

复制代码

注意：与10楼的高级筛选结果不一样的。代码是且的意思，要都符合，高级筛选是或的意思，只要一个符合。

大灰狼1976

自动筛选使用数组参数好像也有行数限制。
Sub test()
Dim arr(1 To 100000) As String, i&
For i = 1 To 100000
  arr(i) = i
Next i
[a1:a100000] = [row(1:100000)]
ActiveSheet.[a1:a100000].AutoFilter Field:=1, Criteria1:=arr, _
        Operator:=xlFilterValues '我电脑上只能显示筛选后34464行数据
End Sub

sero61

大灰狼1976 发表于 2025-4-22 12:51
自动筛选使用数组参数好像也有行数限制。
Sub test()
Dim arr(1 To 100000) As String, i&

感谢大神指点  数据上的有些问题确实在底层结构上还有待探讨

sero61

ykcbf1100 发表于 2025-4-22 10:35

草爷 代码运行结果失败

ivggogiyt

大灰狼1976 发表于 2025-4-22 12:51
自动筛选使用数组参数好像也有行数限制。
Sub test()
Dim arr(1 To 100000) As String, i&

[a1:a100000] = [row(1:100000)]  我的为什么不能大于65536

大灰狼1976

ivggogiyt 发表于 2025-4-22 16:43
[a1:a100000] = [row(1:100000)]  我的为什么不能大于65536

你是2003版吗