函数 SumBold(WorkRng 作为范围) '更新 20131202 昏暗范围 点 xSum 只要 对于 WorkRng 中的每个 Rng 如果 Rng.Font.Bold 那么 xSum = xSum + Rng.Value 结束如果 下一页 粗体总和 = x 总和 函数结束
Function SumBold(WorkRng As Range) 'Update 20220516 Dim Rng As Range Dim xSum As Double For Each Rng In WorkRng If Rng.Font.Bold Then xSum = xSum + Rng.Value End If Next SumBold = xSum End Function