Excel VBA - 对2D数组中的行/列求和

时间:2018-04-14 13:33:19

标签: arrays excel-vba multidimensional-array vba excel

假设我们有一个4x5阵列。如何求和一个单独的1D数组,其中包含5个元素,其中每个元素代表第一个数组中元素的列总和?

3 个答案:

答案 0 :(得分:0)

如果在电子表格中完成

我想我理解你的问题。在每列的底部只需输入一个SUM方程,并仅对该列中的数字求和。例如,如果您的数组位于A1:E4(前五列和前四行),请将以下内容放在单元格A5中:

=SUM(A1:A4)

然后将细胞A5复制到细胞B5到E5中。

编辑 - 如果在VBA中完成

Dim Arr_1(1 to 4, 1 to 5) as Double
Dim Arr_2(1 to 5) as Double
For col = 1 to 5
    Arr_2(col) = 0
    for row = 1 to 4
        Arr_2(col) = Arr_2(col) + Arr_1(row, col)
    Next row
Next col

答案 1 :(得分:0)

Dim Arr_1(1 to 4, 1 to 5) as Double
Dim Arr_2(1 to 5) as Double
For col = 1 to 5
    Arr_2(col) = 0
    for row = 1 to 4
        Arr_2(col) = Arr_2(col) + Arr_1(row, col)
    Next row
Next col

谢谢你,user1228123!

答案 2 :(得分:0)

代码对YourArray的列求和;用于行开关0和1的总和

main