Question

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

我有一张带有多张纸张的Excel工作簿，在每张纸上，我想用特定颜色（绿色）标记一些单元格，并将它们全部加在一起（从所有纸张中）。

这是一份用过的个人报告，每张都包含评论，因此我没有精确的小计位置。

一种解决方案可能是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

Excel，根据单元格颜色跨页面进行求和

1 个答案: