使用excel vba将“按字体颜色求和”添加到每列的末尾

需要按某些列的字体颜色求和。我只有上面的代码，当然是所有代码的总和

Sub sum()
With Sheets("sheet4").Range("a1").CurrentRegion
    If .Cells(.Rows.Count, 1).Value <> "Total" Then
        With .Offset(.Rows.Count).Resize(1)
            .Formula = "=sum(r2c:r[-1]c)"
            .Columns(1).Value = "Total"
        End With
    End If
End With
End Sub

subsum（）
带有板材（“板材4”）。范围（“a1”）。当前区域
如果.Cells（.Rows.Count，1）.Value为“Total”，则
使用.Offset（.Rows.Count）。调整大小（1）
.Formula=“=总和（r2c:r[-1]c）”
.列（1）.Value=“总计”
以
如果结束
以
端接头

如果需要遍历某个范围并按字体颜色执行某些操作，可以执行以下操作。要使用它，您需要将要查看的范围传递给它，以及包含要在其中查找的字体颜色的范围。这比必须输入要查找的绿色阴影的完整颜色编号更容易-只需将绿色字体的单元格复制到另一张图纸上，并将其作为参数传入即可

Sub DoSomethingByFontColor(ByRef xlRange As Excel.Range, ByRef checkColorrange As Excel.Range)

Dim xlcell As Excel.Range, i as long

For Each xlcell In xlRange
    If xlcell.Font.Color = checkColorrange.Font.Color Then
        'do something
        i = i + 1
    End If
Next xlcell

Debug.Print "There were " & i & "incidences of font color " & _
checkColorrange.Font.Color & " in the check range."

End Sub

Sub test()

DoSomethingByFontColor Sheet1.Range("C1:C5"), Sheet1.Range("a1")

End Sub

---

这里没有足够的信息来帮助您。我有一个工作表，它是一个自动创建的报告，其中a列是工作簿中所有工作表的唯一值的选择，而sumif（包含在宏中）在B、C列中的唯一值，D和E。在一些独特的值中，它们具有绿色字体颜色，需要的是具有绿色字体删除器的值的小计和自动具有黑色字体编号的值的小计（在宏内部）。