1、首先打开一个工作样表作为例子。
2、进入vba编辑器，输入以下代码：
Sub 显示公式单元格()
Dim rng As Range
Set rng = ActiveSheet.Range("A1").CurrentRegion
For Each c In rng.Cells
If c.HasFormula Then
MsgBox "单元格" & c.Address & " 定义了公式！"
End If
Next
End Sub
3、我们定义一个rng变量为区域变量，设置区域值为活动单元格a1所临近的空行和空列的区域，可以理解为ctrl+a对工作薄进行全选这样理解。
4、接下来我们做循环语句用for each历遍rng.cells，查找其中的变量c。
5、这里做一个判断，如果HasFormula函数为显示单元格内值是否为公式，如果为公式则得值为TRUE,反之为false。所以这里完整的写法应该是 If c.HasFormula Then = True then msgbox
6、c.address函数返回了当前含有公式的单元格地址，并在msgbox中显示出来。我们尝试运行一下这个代码。可以看到结果是正确的。
