数组求和

苍域

数组{0,0,3;0,2,0;1,0,0}如何计算结果={1;2;3}

高山磐石

=BYCOL({0,0,3;0,2,0;1,0,0},LAMBDA(x,SUM(x)))

hxj119

=TRANSPOSE(MMULT({1,1,1},{0,0,3;0,2,0;1,0,0}))

edwin11891

1. =TOCOL(BYCOL({0,0,3;0,2,0;1,0,0},SUM))

复制代码

高山磐石

=tranpose(BYCOL({0,0,3;0,2,0;1,0,0},LAMBDA(x,SUM(x))))

niko88819

请测试，这意思吗 ?
=niko({0,0,3;0,2,0;1,0,0})

1. Function niko(myArray As Variant) As Variant
   
2.     Dim result() As Variant
   
3.     Dim i As Integer
   
4.     ReDim result(1 To UBound(myArray, 2))
   
5.     For i = 1 To UBound(myArray, 2)
   
6.         result(i) = Application.WorksheetFunction.Sum(Application.Index(myArray, 0, i))
   
7.     Next i
   
8.     niko = Application.Transpose(result)
   
9. End Function

复制代码

mjm04

=ARRAYTOTEXT(BYCOL({0,0,3;0,2,0;1,0,0},SUM),1)