判断原则:
range.comment 返回 Nothing,则不存在批注
Application.Volatile 方法
将用户定义的函数标记为 volatile。 每当工作表上任何单元格中发生计算时,都必须重新计算可变函数。 仅当输入变量更改时,才会重新计算非易失函数。 如果此方法不在用于计算工作表单元格的用户定义函数中,则此方法不起作用。
首先设置一个判断函数
Function ISComment(Ranges As Range) As Integer
'判断单元格区域批注数
Application.Volatile True '自动重算
Dim tempRange As Range
For Each tempRange In Ranges
If Not tempRange.Comment Is Nothing Then 'Nothing 判断一个变量是否为空
ISComment = ISComment + 1 '函数返回值
End If
Next tempRange
End Function