VBA中能否用变量指代数组名并向其添加数据？

你的需求完全可行，问题出在数组的传递方式和锯齿数组的初始化逻辑上，以下是具体错误点和修正方案：

错误原因解析 #

1. 直接传递数组时的问题 #

你尝试直接将数组赋值给Variant变量并传递，VBA中数组默认是值传递，即使声明为Variant，赋值操作会创建原数组的副本而非引用。因此修改子过程中的VarArray只会修改副本，不会影响原公共数组。

2. 锯齿数组的初始化错误 #

你用arrSummDatas(1) = Array(arrAZVATSummData)初始化锯齿数组，这会让arrSummDatas的每个元素变成包含目标数组的单元素数组，而非直接存储目标数组的引用。后续调用arrSummDatas(SummArrayNo)(D1, D2, D3)时，实际是在访问这个单元素数组的下标，自然会抛出下标越界错误。此外，当你ReDim原公共数组后，锯齿数组里的引用并没有同步更新。

修正方案 #

方案一：通过ByRef直接传递数组（更简洁） #

修改子过程参数为ByRef传递数组，确保操作的是原公共数组而非副本：

Public arrAZVATSummData(), arrEBSummData(), arrWSSummData(), arrAZWSSummData()

Sub ProcessData()
    Call fnProcessAZVAT
    Call fnProcessWS
    '后续输出逻辑
End Sub

Sub fnProcessAZVAT()
    Dim D3Size As Long, D1 As Long, D2 As Long, D3 As Long, Value As Double
    
    '确定D3Size的逻辑
    D3Size = 10 '示例值
    ReDim arrAZVATSummData(12, 3, D3Size)
    
    '遍历数据示例
    D1 = 2: D2 = 1: D3 = 3: Value = 18.99
    '直接传递原数组的引用
    Call AddToDataSummArray(arrAZVATSummData, D1, D2, D3, Value)
End Sub

Sub fnProcessWS()
    Dim D3Size As Long, SummArrayNo As Long
    Dim D1 As Long, D2 As Long, D3 As Long, Value As Double
    
    D3Size = 10 '示例值
    ReDim arrEBSummData(12, 3, D3Size)
    ReDim arrWSSummData(12, 3, D3Size)
    ReDim arrAZWSSummData(12, 3, D3Size)
    
    '遍历数据示例
    SummArrayNo = 2
    D1 = 11: D2 = 0: D3 = 5: Value = 29.99
    
    '根据选择传递对应数组
    Select Case SummArrayNo
        Case 2: Call AddToDataSummArray(arrEBSummData, D1, D2, D3, Value)
        Case 3: Call AddToDataSummArray(arrWSSummData, D1, D2, D3, Value)
        Case 4: Call AddToDataSummArray(arrAZWSSummData, D1, D2, D3, Value)
    End Select
End Sub

'参数声明为ByRef的Variant，接收数组引用
Sub AddToDataSummArray(ByRef targetArr As Variant, D1 As Long, D2 As Long, D3 As Long, Value As Double)
    targetArr(D1, D2, D3) = targetArr(D1, D2, D3) + Value
End Sub

方案二：正确初始化锯齿数组 #

如果坚持用索引传递数组，需要将锯齿数组直接存储原数组的引用，而非嵌套数组，并且ReDim后同步更新锯齿数组：

Public arrAZVATSummData(), arrEBSummData(), arrWSSummData(), arrAZWSSummData()
Public arrSummDatas(1 To 4) As Variant '明确声明为Variant类型

Sub ProcessData()
    '直接将数组引用赋值给锯齿数组元素
    arrSummDatas(1) = arrAZVATSummData
    arrSummDatas(2) = arrEBSummData
    arrSummDatas(3) = arrWSSummData
    arrSummDatas(4) = arrAZWSSummData
    
    Call fnProcessAZVAT
    Call fnProcessWS
    '后续输出逻辑
End Sub

Sub fnProcessAZVAT()
    Dim SummArrayNo As Long, D3Size As Long
    Dim D1 As Long, D2 As Long, D3 As Long, Value As Double
    
    SummArrayNo = 1
    D3Size = 10 '示例值
    ReDim arrAZVATSummData(12, 3, D3Size)
    'ReDim后同步更新锯齿数组的引用
    arrSummDatas(SummArrayNo) = arrAZVATSummData
    
    '遍历数据示例
    D1 = 2: D2 = 1: D3 = 3: Value = 18.99
    Call AddToDataSummArray(SummArrayNo, D1, D2, D3, Value)
End Sub

Sub fnProcessWS()
    Dim SummArrayNo As Long, D3Size As Long
    Dim D1 As Long, D2 As Long, D3 As Long, Value As Double
    
    D3Size = 10 '示例值
    ReDim arrEBSummData(12, 3, D3Size)
    ReDim arrWSSummData(12, 3, D3Size)
    ReDim arrAZWSSummData(12, 3, D3Size)
    '同步更新锯齿数组引用
    arrSummDatas(2) = arrEBSummData
    arrSummDatas(3) = arrWSSummData
    arrSummDatas(4) = arrAZWSSummData
    
    '遍历数据示例
    SummArrayNo = 2
    D1 = 11: D2 = 0: D3 = 5: Value = 29.99
    Call AddToDataSummArray(SummArrayNo, D1, D2, D3, Value)
End Sub

Sub AddToDataSummArray(SummArrayNo As Long, D1 As Long, D2 As Long, D3 As Long, Value As Double)
    arrSummDatas(SummArrayNo)(D1, D2, D3) = arrSummDatas(SummArrayNo)(D1, D2, D3) + Value
End Sub

关键注意事项 #

• VBA中只有Variant类型可以存储数组引用，传递数组时必须用ByRef才能修改原数组。
• 当你ReDim数组后，原数组的内存地址会变化，因此如果用锯齿数组存储引用，必须重新赋值一次更新引用。
• 建议给变量和参数添加明确的类型声明（如As Long、As Double），避免隐式类型转换导致的错误。

内容的提问来源于stack exchange，提问作者iStruggle