Excel VBA 连接变量数组

在 Excel VBA 中，连接变量数组可以将多个数组合并为一个数组，为数据处理和分析提供便利。下面介绍如何通过 VBA 代码实现连接变量数组的功能。

1. 定义变量数组

在开始连接变量数组前，首先需要定义多个变量数组，例如：

Dim arr1() As Variant
Dim arr2() As Variant

arr1 = Array("A", "B", "C")
arr2 = Array("D", "E", "F")

2. 连接变量数组

连接变量数组可以使用 VBA 内置函数 ConcatenateArrays，该函数的语法如下：

Function ConcatenateArrays(ParamArray arr() As Variant) As Variant

其中，ParamArray 关键字表示允许变长参数列表，可以接受任意数量的参数。

下面是使用 ConcatenateArrays 函数连接 arr1 和 arr2 两个变量数组的示例代码：

Dim arr() As Variant
arr = ConcatenateArrays(arr1, arr2)

此时，arr 变量数组的值为 {"A", "B", "C", "D", "E", "F"}。

3. 完整示例代码

下面是完整的示例代码，演示如何连接两个变量数组并输出结果：

Sub TestConcatenateArrays()
    Dim arr1() As Variant
    Dim arr2() As Variant
    Dim arr() As Variant
    Dim i As Long
    
    arr1 = Array("A", "B", "C")
    arr2 = Array("D", "E", "F")
    
    arr = ConcatenateArrays(arr1, arr2)
    
    For i = LBound(arr) To UBound(arr)
        Debug.Print arr(i)
    Next i
End Sub

Function ConcatenateArrays(ParamArray arr() As Variant) As Variant
    Dim combined() As Variant
    Dim size As Long
    Dim i As Long
    Dim j As Long
    Dim k As Long
    
    size = UBound(arr(0)) - LBound(arr(0)) + 1
    For i = LBound(arr) + 1 To UBound(arr)
        size = size + UBound(arr(i)) - LBound(arr(i)) + 1
    Next i
    
    ReDim combined(LBound(arr(0)) To size - 1)
    For i = LBound(arr) To UBound(arr)
        For j = LBound(arr(i)) To UBound(arr(i))
            combined(k) = arr(i)(j)
            k = k + 1
        Next j
    Next i
    
    ConcatenateArrays = combined
End Function

4. 总结

通过 VBA 内置函数 ConcatenateArrays，可以轻松实现连接变量数组的功能，方便实现数据处理和分析任务。在使用过程中，注意要定义并初始化变量数组，并确保连接时参数的数量和类型正确。