看起来你的Excel 是2007 以上版本
选中C1
菜单栏 公式----名称管理器 新建，
名称 输入 yanse
引用位置输入 =GET.CELL(63,sheet1!$B1)
C1输入 =yanse
下拉 填充,
D1输入
=sumif(C:C,">0",B:B)追问
For i = 1 To 1000
If Cells(i, 2).Interior.Color <> 0 Then
Cells(1, 3) = Cells(1, 3) + Cells(i, 2) '在C1单元格显示结果
End If
Next
End Sub追问
选中C1
菜单栏 公式----名称管理器 新建，
名称 输入 yanse
引用位置输入 =GET.CELL(63,sheet1!$B1)
C1输入 =yanse
下拉 填充,
D1输入
=sumif(C:C,">0",B:B)追问
这个方法可行，有同仁介绍；
有没有办法不使用辅助列，就是不靠C列的YANSE信息数值来辅助，完成这样的功能？
噢，用 宏吧
Excel 内按Alt+F11, 视图代码窗口， 把如下复制进去， 按F5运行
Sub xxx()For i = 1 To 1000
If Cells(i, 2).Interior.Color <> 0 Then
Cells(1, 3) = Cells(1, 3) + Cells(i, 2) '在C1单元格显示结果
End If
Next
End Sub追问
赞，成了，顺便问一下，我在网上看到了有的网友在VB中定义了countcolor和sumcolor，但是在excel的personal（也就是个人模板中）定义这个sumcolor无法使用，必须要把这个sumcolor模块放在当前表格的模块中才能使用，这样的话，岂不是每个需要使用的表格中都得添一次这个模块啊，能破吗？
上面模块中的module1不起作用，
下面的这个模块中的module1才行，求指点！
存成xlsb , 变成 public 的Macro
温馨提示：答案为网友推荐，仅供参考
第1个回答 2013-11-07
选中校验这一列--筛选，“校验”这一单元格会出现一个小的下拉箭头，点击选择其中的-按颜色筛选-单元格颜色黄色，然后对筛选出来的颜色单元格求和就可以了追问
这个，手动求和这个的确可行，我想要用公式，自动求和，每当这一列数值有变化的时候，都会自动更新一次。
第2个回答 2013-11-07
d3=sumif(b2:b17,"<>0")回车即可追问
呃，第一张图可能没表达太明白，抱歉！
是这样，有的数值是没有底色的
相似回答