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