如何在Excel中向VBA函数传递列作为数组使用？

当你把Excel单元格区域（比如一列）传递给VBA函数时，VBA会自动将其转换为二维数组，而非你代码中假设的一维数组，且数组默认下标从1开始，这是原函数无法正常工作的核心原因。

下面提供几种修正方案：

方案1：直接遍历单元格区域 #

无需转换数组，直接遍历区域内的每个单元格，代码更直观：

Function sum_items(A As Range)
    Dim Total As Double
    Dim cell As Range
    
    Total = 0
    For Each cell In A
        Total = Total + cell.Value
    Next cell
    
    sum_items = Total
End Function

方案2：处理二维区域数组 #

如果需要基于数组操作，可以直接使用VBA生成的二维数组，遍历对应维度：

Function sum_items(A As Range)
    Dim arr As Variant
    Dim Total As Double
    Dim i As Long
    
    arr = A.Value ' 将区域值存入二维数组
    Total = 0
    
    ' 针对一列的情况，遍历行维度（下标从1开始）
    For i = LBound(arr, 1) To UBound(arr, 1)
        Total = Total + arr(i, 1)
    Next i
    
    sum_items = Total
End Function

如果是一行单元格，只需修改遍历列维度：

For i = LBound(arr, 2) To UBound(arr, 2)
    Total = Total + arr(1, i)
Next i

方案3：转换为一维数组（可选） #

可以用Application.Transpose将二维列数组转为一维数组，注意该函数有数据量限制（最多支持65536行）：

Function sum_items(A As Range)
    Dim arr As Variant
    Dim Total As Double
    Dim i As Long
    
    arr = Application.Transpose(A.Value) ' 转置为一维数组
    Total = 0
    
    For i = LBound(arr) To UBound(arr)
        Total = Total + arr(i)
    Next i
    
    sum_items = Total
End Function

额外提示：给参数指定As Range类型，能避免类型不匹配的错误，提升代码稳定性。

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