1、首先我们打开一个工作样表作为例子。
2、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：
Option Explicit
Sub setcap()
With Range("a3")
If .HasFormula = True Then
MsgBox "a3单元格中已存在公式"
End If
end with
End Sub
3、这里我们现制定了单元格的区域为a3单元格。这是一个单单元格，目的就是判断这个单元格里有没有公式。如图所示：
4、hasformula方法是判断单元格内有公式的方法，值为true时表示有公式。false表示没有公式。这里使用if进行判断，如果有公式则执行下一个指令。如图所示：
5、我们看看a3单元格内的数据是什么内容，这样就可以知道运行的结果是如何的。如图所示：
6、我们看到a3单元格是个合并单元格，其内容为数据，而不是公式，所以运行代码，if判断为false不执行msgbox方法。如图所示：
7、先写到这里了，谢谢大家的观看。
祝大家生活愉快。
小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。
看不清楚图片的可以点击放大再看哦。
