我对合并单元格计数有问题,因为我使用的代码对每个单元格进行计数,包括合并在一起的单元格。现在,我有了公式来计算包括合并在一起的所有单元格在内的所有单元格,例如,如果我将6个单元格合并在一起,我希望将其计为1,但将其计为6。是否有一种方法可以计算a单细胞和合并细胞的混合物?谢谢您的帮助(:
Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
ColorFunction = vResult
End Function
答案 0 :(得分:0)