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

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

相关内容

热门资讯

九分钟辅助挂!都昌讨赏有挂吗,... 都昌讨赏有挂吗赢率提升策略‌;九分钟辅助挂!都昌讨赏有挂吗,德扑之星如何分别是否(详细透视辅助app...
五分钟攻略!米兔麻将有软件吗,... 五分钟攻略!米兔麻将有软件吗,aapoker发牌规律(详细透视辅助神器教程)1、不需要AI权限,帮助...
9分钟攻略!边锋老友棋牌脚本,... 9分钟攻略!边锋老友棋牌脚本,云扑克辅助器(详细透视辅助挂教程);超受欢迎的边锋老友棋牌脚本稳赢小游...
4分钟规律!白金岛游戏有猫腻吗... 4分钟规律!白金岛游戏有猫腻吗,wepoke德州扑克系统规律(详细透视辅助神器教程)1、玩家可以在白...
1分钟了解!友友邳州麻将神器,... 1分钟了解!友友邳州麻将神器,wpk发牌规律算法(详细透视辅助助手教程);友友邳州麻将神器简单的灵活...
九分钟透明!青龙大厅免费辅助器... 《九分钟透明!青龙大厅免费辅助器,wpk德州(详细透视辅助神器教程)》 青龙大厅免费辅助器软件透明挂...
9分钟总结!天天麻将川南版花麻... 9分钟总结!天天麻将川南版花麻将有挂吗,wopoker轻量版外 挂(详细透视辅助助手教程);是一款可...
7分钟详情!皮皮跑胡子有辅助吗... 7分钟详情!皮皮跑胡子有辅助吗,poker world外 挂(详细透视辅助插件教程)是一款可以让一直...
7分钟教学!边锋有后台操控吗,... 您好,边锋有后台操控吗这款游戏可以开挂的,确实是有挂的,需要了解加微【136704302】很多玩家在...
三分钟透明!越乡游辅助工具,红... 三分钟透明!越乡游辅助工具,红龙扑克模拟器(详细透视辅助脚本教程)1、许多玩家不知道越乡游辅助工具辅...