1、打开Excel数据表，如下图所示，其中部分单元格含有公式，部分没有，利用VBA判断选择的单元格中是否存在公式。
2、按下Alt+F11键，打开VBA编辑界面，双击数据所在工作表，如下图所示。
3、VBA中可以利用单元格的HasFormula属性来判断其中是否含有公式，输入代码：
Sub 鱼木混猪()
If Selection.HasFormula = True Then
MsgBox "存在公式"
Else
MsgBox "不存在公式"
End If
End Sub
如下图所示。
4、选择一个单元格，按下Alt+F8组合键，打开宏对话框，选择上述步骤中的代码，点击“执行”，如下图所示。
5、如果单元格中存在公式，则会弹窗提示“存在公式”，反之，则提示“不存在公式”，如下图所示。
1、1.打开Excel数据表；
2.Alt+F11，双击数据工作表；
3.输入代码，核心代码：
If Selection.HasFormula = True Then
4.选择单元格，Alt+F8，点击“执行”；
5.就会弹框提示是否存在公式。
