一行中红色单元格求和，用函数实现

excel

亲，举例如下图。自定义函者粒烟也数的代码如下。

打开你的excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧空白处点击右键，“插入”，居斯油左钱庆片虽不政“模块”。右侧空白处粘贴下面的代码。关闭VBA窗口。然后按在E1输入：=SUMRED(A1:D1)

Function SumRed(rng As Range) As DoubleDim rg As RangeFor Each rg In rng If rg.Interior.Color = RGB(255, 0, 0) And IsNumeric(rg.Value) Then SumRed = SumRed + rg.Value End IfNextEnd Function