excel 按颜色每行合计

发布网友发布时间：2022-04-22 19:53

共4个回答

热心网友时间：2023-06-23 10:05

宏表函数。假定有颜色数据在a列，全选a列——菜单——插入——名称——定义——“当前工作薄中的名称”一行中填入一个名称，比如XX，
引用位置下面输入 =get.cell(24,$a1)
在空白列假定C1中输入=XX，公式下拉。这时单元格中出现不同的数字，红色的是3，无色的是0，蓝色是5…
求和红色：=sumif(c:c,3,a:a)
求红色单元格个数：=countif(c:c,3)

热心网友时间：2023-06-23 10:05

是从I4单元格按列往下统计合计数吧，相关行列数字如果不符合自己修改，我是按你表格式样做的。

Sub 按颜色统计加班()
For i = 4 To 11 '假设你要在4至11行统计带颜色数据的和
    For j = 10 To 37 '假设你要统计数据的列在第10列至38列
        If ActiveSheet.Cells(i, j).Interior.Color = RGB(226, 107, 10) Then  '假设填充的颜色是要统计的
           ActiveSheet.Cells(i, 9) = ActiveSheet.Cells(i, 9) + ActiveSheet.Cells(i, j)  '对应查找到的单元格数值加入到第i行第9列
        End If
    Next j
Next i
End Sub

热心网友时间：2023-06-23 10:06

可以根据要求用vba写个自定义函数来实现。
加我好友后具体再沟通一下吧

热心网友时间：2023-06-23 10:06

需要实际的案例数据方才可写可调试