VBA案例精选 查找含有公式的单元格

代码运行结果：

代码截图：

代码文本：

Public Sub 技巧()

Dim myRange As Range

Set myRange = Range("A1")     '指定任意单元格

If myRange.HasFormula = True Then

MsgBox "单元格 " & myRange.Address & " 内有计算公式。"

Else

MsgBox "没有输入计算公式。"

End If

Set myRange = Nothing

End Sub

注释：

此处利用HasFormula属性：如果区域中所有单元格均包含公式，则该属性值为 True；如果所有单元格均不包含公式，则该属性值为 False；其他情况下为 null。 只读 Variant 类型。