Excel VBA数组函数使用基础

") 以获得含有 1 的完全匹配的元素将返回:" & _ vbCr & Join(myFilteredArray, vbCr) End Sub
WorksheetFunction.Transpose 方法
返回转置单元格区域，即将一行单元格区域转置成一列单元格区域，反之亦然。 使用 TRANSPOSE 可在工作表中转置数组的垂直和水平方向。
Array 函数总是返回 Variant 类型的数组，但元素的数据类型可以不同，取决于 传递给该函数的数值的类型。
例如，Array("One", 2, 3.4)返回的数组，第一个元素是 String 类型，第二个 元素是 Integer 型，最后一个元素是 Double 型。
如果没有传递参数给 Array 函数，那么将返回一个空数组。此时，数组的上界为 -1，小于下界（总为 0）。例如，
Filter 函数
如果想检查是否某项存在于一组字符串中，则可以遍历所有项并和匹配的字符串 相比较，但此时也可以使用 Filter 函数。
Filter(myArray, myMatch, myInclude)
接收 myArray，并将其元素中的每一项与 myMatch 中的字符串相比较，取决于 myInclude 是 True（缺省的）或 False，返回一个数组，包含 myArray 中包含 myMatch 的所有元素，或者不包含 myMatch 的所有元素。
-4fanjy_EH
如果给 Join 函数传递一个空数组，那么将返回一个空字符串。
Sub TestSplitJoin() Dim myStr As String Dim myArray() As String
'由逗号分隔的字符 myStr = "A1,B2,C3" '将字符串分成一组子字符串 myArray = Split(myStr, ",") '显示数组元素 MsgBox myArray(0) & vbCr & myArray(1) & vbCr & myArray(2) '将数组的所有元素合成一个字符串 '使用 " and " 连接 myStr = Join(myArray, " and ") '显示字符串 MsgBox myStr End Sub
'标记每个找到的元素的开始和结束 'myMarker 和 myDelimiter 必须是字符 '且该字符不会出现在数组的任何元素中! mySearchArray = Split(myMarker & Join(myFilteredArray, myMarker & _
myDelimiter & myMarker) & myMarker, myDelimiter) '下面筛选修改后的数组 myFilteredArray = Filter(mySearchArray, _
Filter(Array(1, 10, 210), 1)
将返回该数组中的所有元素，因为每个数值里面都有 1。
测试 Filter 函数的示例：
Sub TestFilter() Dim myArray() As Variant Dim myFilteredArray As Variant
'创建数组 myArray = Array("One", "Two", "Three")
Filter 函数的另一个限制是不能要求它仅查找完全匹配项，它总是返回包含匹 配字符串的所有的元素，换句话说，比较而不是检查。
-2fanjy_EH
Excel VBA 数组函数使用基础
这个函数总是比较字符串，因此如果你筛选一个数值数组，那么它将数值转换成 字符串，然后检查它们。因为它不会仅查找完全匹配项，所以查找一个数值将不 仅返回等于该匹配的元素，而且也包含将该数值作为一部分的元素，例如：
-3-
fanjy_EH
Excel VBA 数组函数使用基础
'创建数组 myArray = Array(1, 2, 3, 10) '预先在数组中筛选包含 1 的元素 myFilteredArray = Filter(myArray, 1) If UBound(myFilteredArray) > -1 Then
查找是区分大小写的，因此如果 myMatch 是小写，那么不会查找包含该字母大写 形式的元素，反之亦然。
由于该函数返回一个包含所找到的元素的新数组，不能够在查找到的数组里获得 元素的索引值。该函数仅告诉你元素是否存在，即包含/不包含匹配字符串，是 哪个而不是在哪儿。
如果没有找到匹配的元素，那么 Filter 函数返回一个没有元素的数组，其上界 值是-1。
myMarker & "1" & myMarker) '从结果中移除标记 myFilteredArray = Split(Replace(Join(myFilteredArray, _
myDelimiter), myMarker, ""), myDelimiter) End If '显示结果 MsgBox "筛选数组(" & Join(myArray, ", ") & _
Eபைடு நூலகம்cel VBA 数组函数使用基础
下面主要介绍了 VBA 中与处理数组相关的 Array 函数、Split 函数、Filter 函数 的使用知识。
Array 函数
Array 函数是一种使用值创建和填充数组的方法。将所有的值作为参数传递给该 函数，返回一个使用这些值作为元素的一维数组，数组值的顺序和传递给函数的 数值的顺序相同。第一个元素的索引值总是 0，不依赖任何 Option Base 设置。
如果将一个空字符串传递给 Split 函数，那么将返回一个空数组。与 Array 函数 一样，如果为空则返回的数组上界为-1。
Excel VBA 数组函数使用基础
当给 Split 函数传递一个字符串且没有包含分隔符时，不会获得一个空数组。此 时，返回的数组包含一个元素，就是字符串本身。
Split 函数功能相对的函数是 Join 函数。该函数接受一组字符串作为参数，并 返回包含数组所有元素所组成的字符串。可以指定分隔符，这样将在每个值之间 添加该分隔符。
Sub TestArray() Dim myArray() As Variant
'从逗号分隔的字符串列表中创建数组 myArray = Array("One", "Two", "Three") '显示数组元素 MsgBox myArray(0) & vbCr & myArray(1) & vbCr & myArray(2) '也可以使用数值作为参数 myArray = Array(10, 20, 30) '显示数组元素 MsgBox myArray(0) & vbCr & myArray(1) & vbCr & myArray(2) End Sub
下面的代码示例展示如何仅获取完全匹配的元素：
Sub FilterExactly() Const myMarker As String = "!" Const myDelimiter As String = "," Dim myArray() As Variant Dim mySearchArray As Variant Dim myFilteredArray As Variant
'筛选数组中包含"T"的元素 myFilteredArray = Filter(myArray, "T", True) '显示结果 MsgBox "在数组(""One"", ""Two"", ""Three"")中 " & _
"筛选含有 ""T"" 的元素将返回" & _ vbCr & Join(myFilteredArray, vbCr) '筛选数组中不包含 "T" 的元素 myFilteredArray = Filter(myArray, "T", False) '显示结果 MsgBox "在数组(""One"", ""Two"", ""Three"")中 " & _ "筛选不含有 ""T"" 的元素将返回" & _ vbCr & Join(myFilteredArray, vbCr) '筛选数组中含有 "t" 的元素 myFilteredArray = Filter(myArray, "t", True) '显示结果 MsgBox "在数组(""One"", ""Two"", ""Three"")中 " & _ "筛选含有 ""t"" 的元素将返回" & _ vbCr & Join(myFilteredArray, vbCr) '在数值数组中筛选数字 "1" myArray = Array(1, 2, 3, 10) myFilteredArray = Filter(myArray, 1) '显示结果 MsgBox "在数值数组(1, 2, 3, 10)中 " & _ "筛选含有 1 的数组元素返回" & _ vbCr & Join(myFilteredArray, vbCr) End Sub