求教贴

请大家多多指教，不要沉

不要沉，顶

下载一个小蓝条-按颜色汇总功能

嗯嗯，我试试，谢谢了

可以使用VBA自定义函数求解

关键是我没到那水平呢

~~~~VBA 自订函数~~~~
按 Alt-F11 ，功能表／插入／模块，
将以下代码抄入代码编辑窗，关闭编辑窗，自订函数生效了。
D1=xSumif(A$1:A$10,A1)
下拉

Function xSumif(ByVal RNG As Range, ByVal Sample As Range)
Dim output%
On Error Resume Next
For Each cell In RNG
If cell.Font.Color = Sample.Font.Color Then
output = output + cell.Value
End If
Next
On Error GoTo 0
xSumif = output
End Function

刚才试了一下，您这个方法是超过百度推荐的所有方法的，谢谢了，就是还有一个问题请教您一下，我后期手动改变字体颜色后还需要从新在公式里面点选一下带颜色字体才会再次计算，有没有方法就是改变颜色后自动计算呢？望指教