excel VBA编写高手帮忙。

用VBA编写一个公式,可以求出红色单元格中数字的和
2024-12-12 23:55:06
推荐回答(1个)
回答1:

Sub sumColor()
Dim mycell As Range
n = 0
For Each mycell In Range("A1:B10")
If mycell.Interior.Color = vbRed Then
n = n + mycell.Value
End If
Next mycell
MsgBox (n)
End Sub

上面最后得出的n,就是红色单元格的和。