Excel VBA：如何对4×5二维数组按列求和生成一维数组

嘿，这个需求挺常见的，我来给你分享几种在Excel VBA里实现的方法，每种都有对应的代码和说明，你可以根据自己的场景选：

这种方法就是手动遍历每一列的所有行，逐个累加求和，逻辑清晰，新手也能快速看懂。

步骤大概是：

• 先定义好你的4×5二维数组（假设已经有数据了）
• 创建一个长度为5的一维数组，用来存每列的求和结果
• 外层循环遍历每一列，内层循环遍历该列的所有行，把元素累加到对应位置的一维数组里

代码示例：

Sub ColumnSumWithLoop()
    ' 1. 初始化示例4×5二维数组（你可以替换成自己的数据源）
    Dim sourceArr(1 To 4, 1 To 5) As Integer
    Dim i As Integer, j As Integer
    ' 给二维数组填充测试数据（这里随便填的，实际用你自己的数据）
    For i = 1 To 4
        For j = 1 To 5
            sourceArr(i, j) = i * j
        Next j
    Next i
    
    ' 2. 创建存储结果的一维数组（5个元素）
    Dim sumArr(1 To 5) As Integer
    
    ' 3. 按列求和
    For j = 1 To 5 ' 外层循环：遍历每一列
        For i = 1 To 4 ' 内层循环：遍历当前列的所有行
            sumArr(j) = sumArr(j) + sourceArr(i, j)
        Next i
    Next j
    
    ' 可以在这里输出结果验证，比如打印到立即窗口
    For j = 1 To 5
        Debug.Print "第" & j & "列的和：" & sumArr(j)
    Next j
End Sub

VBA可以直接调用Excel的内置求和函数，省去自己写循环的麻烦，代码更简洁。这里要注意数组的引用方式，WorksheetFunction.Sum可以直接对二维数组的某一列求和。

代码示例：

Sub ColumnSumWithWorksheetFunction()
    Dim sourceArr(1 To 4, 1 To 5) As Integer
    Dim sumArr(1 To 5) As Integer
    Dim j As Integer
    Dim i As Integer ' 补充变量定义
    
    ' 填充测试数据（同上）
    For i = 1 To 4
        For j = 1 To 5
            sourceArr(i, j) = i * j
        Next j
    Next i
    
    ' 按列求和，直接调用Sum函数
    For j = 1 To 5
        ' 这里用Application.Index提取二维数组的第j列，再求和
        sumArr(j) = WorksheetFunction.Sum(Application.Index(sourceArr, 0, j))
    Next j
    
    ' 验证结果
    For j = 1 To 5
        Debug.Print "第" & j & "列的和：" & sumArr(j)
    Next j
End Sub

注意：如果你的二维数组是基于0的下标（比如Dim sourceArr(3,4)），记得把循环的起始和结束下标对应调整成0到4哦。

如果你的二维数组数据量很大，用这种方法效率更高，一次性计算所有列的和，不用循环遍历每一列。核心是利用转置和数组公式的特性。

代码示例：

Sub ColumnSumWithArrayFormula()
    Dim sourceArr(1 To 4, 1 To 5) As Integer
    Dim sumArr As Variant ' 这里用Variant接收数组公式的结果
    Dim i As Integer, j As Integer
    
    ' 填充测试数据
    For i = 1 To 4
        For j = 1 To 5
            sourceArr(i, j) = i * j
        Next j
    Next i
    
    ' 用数组公式批量计算每列的和，转置后得到一维数组
    sumArr = Application.Transpose(WorksheetFunction.Sum(Application.Transpose(sourceArr)))
    
    ' 验证结果（sumArr现在是一维数组，下标从1到5）
    For j = 1 To 5
        Debug.Print "第" & j & "列的和：" & sumArr(j)
    Next j
End Sub

这个方法的原理是先把二维数组转置成5×4的数组，然后对每一行求和（对应原来的列），再转置回来就得到了我们需要的一维数组，非常高效。

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