Excel：如果满足另一列（也是多个）中的条件，则对每行中的多列值求和

Question 1

单元格 B2 的公式

=SUM((($E2:$XFA2)=B$1)*IFERROR(VALUE($H2:$XFD2),0))

这实际上是“矩阵公式”（需要通过 CTRL+SHIFT+ENTER 确认）确认后将此单元格拉伸至 B、C、D 列。

此公式发现“评级”列始终位于“类型”列右边 3 列。

Answer

单元格 B2 的公式

=SUM((($E2:$XFA2)=B$1)*IFERROR(VALUE($H2:$XFD2),0))

这实际上是“矩阵公式”（需要通过 CTRL+SHIFT+ENTER 确认）确认后将此单元格拉伸至 B、C、D 列。

此公式发现“评级”列始终位于“类型”列右边 3 列。

Question 2

这可以满足您的要求，而且可以扩展！不过它是用 VBa 编写的。我知道您要求使用工作表函数，但因为您没有合适的答案，所以我提供这个。

请记住，没有撤消，因此请确保先备份文件。

Option Explicit    
Sub WalkThePlank()

Dim startRow As Integer
startRow = 2                     'update this if needed Cap'ain, assumes content starts on row 2 as your "headings" be on row 1. Argggghhhh

Dim startCol As Integer
startCol = 69                   '69 is for Column E, the first column you want to look at. If this be wrong, then I'll feed myself to the sharks

Dim currentCol As Integer    
Dim typeToUse As String        
Do While Range("A" & startRow).Value <> ""
currentCol = startCol    
Do While Range(Chr(currentCol) & 1).Value <> ""
    Dim heading As String
    heading = Range(Chr(currentCol) & 1).Value        
    If (LCase(heading) = "type") Then
        typeToUse = Range(Chr(currentCol) & startRow).Value
    End If        
    If (LCase(heading) = "ranking") Then
        If LCase(typeToUse) = "a" Then
            Range("B" & startRow).Value = Range("B" & startRow).Value + Range(Chr(currentCol) & startRow).Value
        End If
        If LCase(typeToUse) = "b" Then
            Range("C" & startRow).Value = Range("C" & startRow).Value + Range(Chr(currentCol) & startRow).Value
        End If
        If LCase(typeToUse) = "c" Then
            Range("D" & startRow).Value = Range("D" & startRow).Value + Range(Chr(currentCol) & startRow).Value
        End If
    End If
    currentCol = currentCol + 1
Loop    
startRow = startRow + 1
Loop    
End Sub

如何在 MS Office 中添加 VBA？

唯一的标准是，从左到右，类型列必须位于排名之前。

在您的屏幕截图中，您有 4 列的“组”

类型名称代码评级

有了上述这些，你可以拥有 2 人或 20 人的团队！它仍然有效

如果你在数据的最右侧添加一组额外的列，无论是 2、3、4 组（如你所见）还是其他任何数字，它仍然可以工作

前

运行 VBa 后

然后删除 TypeA、TypeB 和 TypeC 列中的值并添加另外 2 列（我省略了所调用的列Argh以显示不同的结构并不重要）

并运行完全相同的 VBa

Answer