那就用vba 吧。 配合我们工作室开发的 收纳箱还是很容易的。

回复：12楼

按颜色求和的， 已经搞定了

VBA代码如下， 记得要配合方方格子的收纳箱使用。很简单的

Option Explicit

Sub 按颜色求和()
On Error Resume Next
Dim sRng As Range
Dim cRng As Range
Dim result As Range
Dim r As Range
Dim choice As Integer

Set sRng = Selection
Dim ncolor As Long
Dim total As Double


choice = Application.InputBox("选择统计方式，0 为按背景颜色统计， 1为按字体颜色统计", "统计方式", Default:=0, Type:=1)
If choice = 0 Or choice = 1 Then

Else
    MsgBox "无效选项,必须为0 或者 1"
Exit Sub

End If

Set cRng = Application.InputBox("选择需要统计的颜色的一个单元格(只需一个单元格)", "选择单元格", Type:=8)
If cRng Is Nothing Then Exit Sub
Set cRng = cRng.Cells(1, 1)

If choice = 0 Then  '背景
    ncolor = cRng.Interior.Color
Else
    ncolor = cRng.Font.Color
End If



total = 0
For Each r In sRng
    If IsNumeric(r.Value) Then
    
    If choice = 0 Then  '背景
        If r.Interior.Color = ncolor Then
         total = total + CDbl(r.Value)
        End If
    Else
        If r.Font.Color = ncolor Then
         total = total + CDbl(r.Value)
        End If
    End If
   
    End If
Next

Set result = Application.InputBox("选择结果存放位置", "选择单元格", Type:=8)
If result Is Nothing Then Exit Sub
result.Value = total

End Sub

您干嘛不直接在我那张表中作业呢！

我有一个思路，您看看可不可行。=