
excel
Function sumRed(rng As Range) As DoubleDim rg As RangeSet rg = Intersect(ActiveSheet.UsedRange, rng)For Each rg In rngIf rg.Font.Color = RGB(255, 0, 0) And IsNumeric(rg.Value) ThensumRed = sumRed + rg.ValueEnd IfNextEnd Function这个函数会自动将红色字体且符合数值要求的单元格求和。4. 输入公式:=SUMRED(你希望求和的区域)。5. 点击确认或按回车键即可得到结果。通过以上步骤,您可以使用VBA代码来实现自动求和,并且不需要使用辅助列。希望对您有所帮助!Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号