5

我有两列数字。我想在一个单独的单元格中计算一个总和。总和将包括这两列中相应单元格的最小值。

例子：

        A  |  B
       --------
[1]     1  |  2
[2]     4  |  3
[3]     0  |  1
[4]     5  |  5

我需要一个公式，可以在单元格中计算 1 + 3 + 0 + 5 的总和，其中

* 1 is the MIN(A1,B1), 
* 3 is the MIN(A2,B2) 
* 0 is the MIN(A3,B3)
* 5 is the MIN(A4,B4)

这可能在一个公式中（独立于#rows）吗？

目前正在使用 LibreOffice Calc，但 Excel 解决方案更受欢迎。

4

2 回答 2

5

您可以为此使用数组公式（Libre Office和Excel的文档）：

=SUM(IF(A1:A4<B1:B4, A1:A4, B1:B4))

通过Ctrl++Shift而Enter不是简单的 Enter 确认。

于 2014-08-03T13:16:40.323 回答
1

好吧，你可以用一个公式来做到这一点，但它的可扩展性不是很好。例如，您可以这样做：

=SUM(MIN(A1:B1),MIN(A2:B2),MIN(A3:B3), MIN(A4:B4))

这将适用于您描述的情况。但是，我很欣赏如果您有大量行，那么这将无法很好地扩展。在这种情况下，我认为您将需要一个 VBA 宏，因为我看不到这样做的方法。我准备被一些 Excel 公式大师纠正。

对于 VBA 解决方案，您可以尝试以下方法（在OzGrid 论坛中找到）：

Function sumOfMax(ByVal inputRange As Range, Optional doMin As Boolean) As Double
    Dim inRRay As Variant
    Dim currentMax As Double
    Dim i As Long, j As Long

    Set inputRange = Application.Intersect(inputRange, inputRange.Parent.UsedRange)
    If Nothing Is inputRange Then Exit Function
    inRRay = inputRange.Value
    For i = 1 To UBound(inRRay, 1)
        currentMax = Val(inRRay(i, 1))
        For j = 1 To UBound(inRRay, 2)
            If (Val(inRRay(i, j)) > currentMax) Xor doMin Then currentMax = Val(inRRay(i, j))
        Next j
        sumOfMax = sumOfMax + currentMax
    Next i
End Function

当设置为TRUE时，可选参数计算最小值，而不是该宏默认计算的最大值。在您的示例中，您需要像这样调用它：

=sumOfMax(A1:B4, TRUE)

请记住，您需要将代码放在标准代码模块中。

于 2014-08-03T12:46:56.510 回答