关于 Filter函数

一指禅62

以备自用

1. Sub Filter函数()
   
2.     Dim arr, b, k
   
3.     arr = Array("跳高", "跳远", "铅球", "铁饼", "标枪", "掷链球", "A100", "a12", 13)
   
4.     b = Filter(arr, "a", True, vbTextCompare)   'vbTextCompare 不区分大小写
   
5.     'b = Filter(arr, "a", True, vbBinaryCompare) 'vbTextCompare 区分大小写
   
6.     For Each k In b
   
7.         Debug.Print k, UBound(b)
   
8.     Next
   
9. End Sub

复制代码