Sub Colorsum()
Dim i, j, k, c As Long
Set mysheet1 = ThisWorkbook.Worksheets
For i = 3 To 26 '行 (需要计算的标黄的有哪些行)
k = 0
For j = 1 To 190 '列 (需要计算的标黄的有哪些列)
c = Cells(i, j).Interior.Color
If c <> 16777215 Then '不为无填充 (即该单元格有填充颜色不一定是黄色什么色都行)
If IsEmpty(Cells(i, j)) Then '该单元格要是空的就加0
k = k + 0
Else
k = k + Cells(i, j).Value
End If
End If
Next
Cells(i, j + 2).Value = k '每一行汇总后结果写入最后一列的后两列单元格内
Next
End Sub
VBA分别计算Excel的每一行填充颜色的单元格。把结果写到行最后
最新推荐文章于 2023-10-18 20:22:44 发布
这段VBA宏代码用于Excel中,它遍历指定范围内的单元格,检查每个单元格的填充颜色,如果颜色不是无填充且单元格非空,则对单元格值进行累加,并将结果写入同一行的最后一列。该宏适用于对有颜色标记的数据进行快速求和。
摘要由CSDN通过智能技术生成