Excel，基于单元格颜色在页面之间进行求和

也许这是一个微不足道的问题，但以防万一任何人遇到同样的问题。

我有一个excel工作簿，有几张纸，每张纸上我都要用特定的颜色（绿色）标记一些单元格，然后把所有的单元格放在一起。

这是一个花费的个人报告，每张表都包含评论，所以我没有准确的小计位置。

一种解决scheme可能是sheet1：A20 + sheet2：B34 …等等（手动）

其他它跨越我的想法将是我想要的每个单元格作为小计绿色着色，并使VBA按所有颜色的所有纸张总和？

欣赏想法，

Answer 1

你可以做这样的事情来总结一个特定范围内的所有值（在我的例子中是B2-B4 – 当然也可以扩展到其他范围）：

Dim sumYellowCells As Integer Dim sumGreenCells As Integer For Each cell In ActiveSheet.Range("B2:B4") If cell.Interior.Color = vbGreen Then sumGreenCells = sumGreenCells + cell.Value End If If cell.Interior.Color = vbYellow Then sumYellowCells = sumYellowCells + cell.Value End If Next Debug.Print sumGreenCells & "-" & sumYellowCells