Question

请问各位大侠，wps中如何用颜色求和，详细点，谢谢！

Answer 1

ALT+F11打开VBA
输入代码
Sub kk()

Dim s As Integer
s = 0 '累加变量

f = Worksheets(2).Range("a4").Interior.Color '检测单元格背景色的值

'两个循环，从A4（可根据需要更改）开始逐个对比背景，如果是正确的背景色则累加
For i = 0 To 7
For j = 0 To 2
If Worksheets(2).Range("a4").Offset(i, j).Interior.Color = f Then
s = s + Worksheets(2).Range("a4").Offset(i, j)
End If
Next j
Next i

Worksheets(2).Range("a2").Value = s '输出结果

End Sub

上面只是例子，自己可以修改看效果

追问

alt+f11打不开