1. 打開Excel，按Alt+F11進(jìn)VBA編輯器，在左側(cè)隨便點(diǎn)右鍵，選插入-模塊，然后在右邊粘貼下面的代碼，之后關(guān)掉VBA窗口。
2. 接著輸入公式：=SUMRED(你要求和的區(qū)域)
代碼如下：
Function sumred(rng As Range) As Double
Dim rg As Range
Set rng = Intersect(*.usedrange, rng)
For Each rg In rng
If rg.*.color = RGB(255, 0, 0) And IsNumeric(*.value) Then sumred = sumred + *.value
Next
End Function
2. 接著輸入公式：=SUMRED(你要求和的區(qū)域)
代碼如下：
Function sumred(rng As Range) As Double
Dim rg As Range
Set rng = Intersect(*.usedrange, rng)
For Each rg In rng
If rg.*.color = RGB(255, 0, 0) And IsNumeric(*.value) Then sumred = sumred + *.value
Next
End Function