AutoFilter数组在使用更多元素时无效 VBA
创始人
2024-11-12 13:30:09
0

问题描述:当使用AutoFilter方法对数组进行筛选时,发现在数组中包含更多元素时,筛选结果无效。

解决方法:

  1. 使用AdvancedFilter方法:AdvancedFilter方法比AutoFilter方法更适用于处理大量数据。它可以直接在数组中执行筛选操作。
Sub AdvancedFilterArray()
    Dim dataArr As Variant
    Dim resultArr() As Variant
    Dim criteriaRange As Range
    Dim filterRange As Range
    
    ' 获取数据数组
    dataArr = Range("A1:A10").Value
    
    ' 设置筛选条件
    Set criteriaRange = Range("B1:B2")
    
    ' 设置筛选范围
    Set filterRange = Range("A1:A10")
    
    ' 执行筛选
    filterRange.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=criteriaRange
    
    ' 将筛选结果赋值给结果数组
    resultArr = filterRange.SpecialCells(xlCellTypeVisible).Value
    
    ' 显示结果
    Range("D1").Resize(UBound(resultArr)).Value = resultArr
End Sub
  1. 使用Excel工作表进行筛选:将数组中的数据复制到Excel工作表中,然后使用Excel的筛选功能进行筛选操作。
Sub FilterUsingWorksheet()
    Dim dataArr As Variant
    Dim resultArr() As Variant
    Dim ws As Worksheet
    Dim filterRange As Range
    
    ' 获取数据数组
    dataArr = Range("A1:A10").Value
    
    ' 创建新的工作表
    Set ws = Worksheets.Add
    
    ' 将数据数组复制到工作表中
    ws.Range("A1").Resize(UBound(dataArr)).Value = dataArr
    
    ' 设置筛选范围
    Set filterRange = ws.Range("A1:A10")
    
    ' 执行筛选
    filterRange.AutoFilter Field:=1, Criteria1:="Criteria"
    
    ' 将筛选结果赋值给结果数组
    resultArr = filterRange.SpecialCells(xlCellTypeVisible).Value
    
    ' 显示结果
    Range("D1").Resize(UBound(resultArr)).Value = resultArr
    
    ' 删除工作表
    Application.DisplayAlerts = False
    ws.Delete
    Application.DisplayAlerts = True
End Sub

这两种方法可以在处理大量数据时有效地进行筛选操作。您可以根据具体情况选择适合您的方法。

相关内容

热门资讯

4分钟发现!吉祥填大坑,nzt... 4分钟发现!吉祥填大坑,nzt德州切实真的是有挂,教你教程(有挂软件)1、完成吉祥填大坑的残局,帮助...
2分钟细说!边锋老友麻将为什么... 2分钟细说!边锋老友麻将为什么经常输(辅助挂)好像存在有挂(2022已更新)(哔哩哔哩)1、操作简单...
aapoker透明挂!wepo... 这是一款非常优秀的wepower ia辅助检测软件,能够让你了解到wepower中牌率当中全部隐藏参...
微扑克ai辅助!德州ai辅助神... 微扑克ai辅助!德州ai辅助神器wpk,微扑克都是真的有挂,揭秘教程(有挂机密)1、这是跨平台的微扑...
五分钟辅助挂!兴动麻将有挂,n... 五分钟辅助挂!兴动麻将有挂,nzt德州切实有挂,靠谱教程(有挂技巧)兴动麻将有挂辅助器中分为三种模型...
实测教程!欢乐龙城棋牌怎么提高... 实测教程!欢乐龙城棋牌怎么提高好牌率(辅助挂)一直真的是有挂(2020已更新)(哔哩哔哩)1、任何欢...
攻略教程!wepoke软件收费... WePoke高级策略深度解析‌;攻略教程!wepoke软件收费是真的(wepoke黑科技)wEpok...
微扑克ai辅助!微扑克有挂,微... 微扑克ai辅助!微扑克有挂,微扑克发牌算法,技巧教程(有挂透视)1、很好的工具软件,可以解锁游戏的微...
信息共享!乐享牛牛能代挂吗(辅... 信息共享!乐享牛牛能代挂吗(辅助挂)原来是真的有挂(2022已更新)(哔哩哔哩)1、起透看视 乐享牛...
七分钟实锤!牵手跑得快辅助,德... 七分钟实锤!牵手跑得快辅助,德扑助手好像存在有挂,普及教程(有挂实操)1、在牵手跑得快辅助ai机器人...