请教下如何颜色求和，谢谢

用户名用什么好

高山磐石

这个要用宏： Sub 宏1() ' ' Dim x, i, j For j = 1 To 3 x = 0 For i = 1 To 6  Cells(j, i).Select  With Selection.Interior If .Color = 65535 Then x = x + Cells(j, i) Else: End If End With  Next i  Cells(8 + j, 2) = x  Next j ' End Sub

zhangcheng6688

学习一下数组，打扰了
Sub test()
arr = [a1].CurrentRegion
For i = 1 To UBound(arr)
   For j = 2 To UBound(arr, 2)
      If Cells(i, j).Interior.Color = vbYellow Then
         Sum = Sum + arr(i, j)
      End If
   Next
Next
[a8] = Sum
End Sub

jerrike

1. =SUMPRODUCT(Y*(X=A10))

复制代码

用户名用什么好

jerrike 发表于 2024-8-16 09:13

请问下SUMIFS不能实现吗？或其他更简洁的

高山磐石

也可以自建公式如下：
Function SumByColor(range_data As Range, color_index As Long) As Double
    Dim cell As Range
    Dim total As Double

    For Each cell In range_data
        If cell.Interior.ColorIndex = color_index Then
            total = total + cell.Value
        End If
    Next cell

    SumByColor = total
End Function

Excel
=SumByColor(A1:F6, 65535)

jerrike

sumif 和sumifs都不行

沈默00

颜色求和只能VBA了，写个自定义函数，，，
公式就算了

菜狗一只

求和方式参照图片]

sherry-excel

菜狗一只 发表于 2024-8-16 16:15
求和方式参照图片]

好牛，真的可以！
新问题来了，这样操作之后，如果想追溯，之前有哪些单元格，被命名为了黄色填充，可以查看到吗，谢谢。