| 楼主 wise |
根据单元格颜色求和自定义函数： Public Function SumColor(Rng As Range, MyRng As Range) Application.Volatile Dim MyCell As Range For Each MyCell In MyRng If MyCell.Interior.ColorIndex = Rng.Interior.ColorIndex Then SumColor = SumColor + WorksheetFunction.Sum(MyCell) End If Next End Function  根据单元格颜色求和自定义函数.rar |
| 2楼 yaoandxu2011 |
谢谢分享，下走了，这个一定要学会 |