VBA数组教程第9例:Filter函数实现数组筛选

兰色幻想

  VBA数组教程第9例:Filter函数实现数组筛选

  数组的筛选就是根据一定的条件,从数组中筛选符合条件的值,组成一个新的数组，实现数组筛选的VBA函数是：

         Filter函数

  用法：Filter(数组, 筛选的字符,
  是否包含) 

 示例

Sub DD()
     arr = Array("ABC", "A", "D", "CA", "ER")
     arr1 = VBA.Filter(arr, "A", True) '筛选所有含A的数值组成一个新数组
     arr2 = VBA.Filter(arr, "A", False) '筛选所有不含A的数值组成一个新数组
     MsgBox Join(arr2, ",") '查看筛选的结果
End Sub

遗憾的是函数只能进行模糊筛选，不能精确匹配。

附：1-7链接：

附1-7例链接：

新手学VBA数组--示例1

VBA数组学习示例教程之2：了解数组的维数

VBA数组入门教程第3例：把单元格数据搬入内存

VBA数组入门第4例：数组导入到单元格中

VBA数组入门教程第5例：动态数组的声明

VBA数组入门教程第六例：数组的下标
 

 VBA数组入门第7例：使用Array函数创建常量数组
 

VBA数组教程8：数组的合并和字符串拆....on & split)[长]

[此贴子已经被作者于2010-8-11 14:45:49编辑过]

liuliu66

跟贴学习，谢谢兰版

K呗

学习下！

wbzxz

越来越深入啦，不过还不知道应该用在哪里？

不能精确匹配，真是太可惜啦。

fjmxwrs

学习，模糊查找也有模糊查找的用处呀，有没有精确查找的？呵

sunjing-zxl

学习学习

平地三尺浪

慢慢学习，虽然很多不懂

xdwy81129

来学习兰版了

yuhe0008

做点小动作，让兰版不再遗憾

Sub DD()
     arr = Array("ABC", "A", "D", "CA", "ER", "A")
         arr1 = VBA.Filter(arr, "A", True) '筛选所有含A的数值组成一个新数组
     arr2 = VBA.Filter(arr, "A", False) '筛选所有不含A的数值组成一个新数组
     MsgBox Join(arr2, ",") '查看筛选的结果
     
     
     a1 = Split("|" & Join(arr, "|,|") & "|", ",") '对原数组加入分隔符进行重建
     arr3 = Filter(a1, "|A|")  ''精确匹配筛选
     MsgBox Replace(Join(arr3, ","), "|", "") '查看筛选的结果
End Sub

放浪形骸

回复 yuhe0008 的帖子

谢谢斑竹的代码啊。。