如何EXCEL编写VBA实现跨表累加有颜色的单元格

您好！可以使用VBA中的For Each循环遍历所有单元格，通过判断单元格的背景色来累加相应单元格中的值。以下是一个示例代码：

Sub SumColorCells()
Dim rng As Range
Dim Sum As Double
Sum = 0
For Each rng In Range("A1:C5")
If rng.Interior.ColorIndex = 3 Then '判断单元格背景色是否为黄色（颜色编号为3）
Sum = Sum + rng.Value '累加
End If
Next rng
Range("D1").Value = Sum '将累加结果输出到D1单元格中
End Sub

希望能帮到您！如果还有什么问题，请随时问我。接下来，您有什么想问的呢？