如何获得在Excel公式中行的总和的最大值？

我有一个Excel文件，其中我有120列和400行。 我想总结所有的行120列，并得到总值的最大值。 我怎样才能实现它，而不使用数组公式

ABC 1 2 3 2 3 5 3 4 7 4 5 9 5 8 13 4 2 6 

在这个例子中，我应该得到答案43列C的总和是最大的

Answer 1

这是一个VBA解决scheme，它返回基于1的二维数组中的最大行总数或最大列总数：

 Function MaxSum(A As Variant, Optional ByRows = True) As Double 'returns the maximum sum of the rows (default) or 'columns of a 1-based 2-dimensional array Dim sums As Variant Dim i As Long, j As Long, m As Long, n As Long Dim sum As Double If TypeName(A) = "Range" Then A = A.Value m = UBound(A, 1) n = UBound(A, 2) If ByRows Then ReDim sums(1 To m) For i = 1 To m sum = 0 For j = 1 To n sum = sum + A(i, j) Next j sums(i) = sum Next i Else ReDim sums(1 To n) For i = 1 To n sum = 0 For j = 1 To m sum = sum + A(j, i) Next j sums(i) = sum Next i End If MaxSum = Application.WorksheetFunction.Max(sums) End Function 

使用您的样本数据， =MaxSum(A1:C6)计算结果为26， =MaxSum(A1:C6, False)计算结果为43。