用VBA判断单元格是否有公式方法
1、利用HasFormula属性，可以判断单元格内是否有公式
sub T1()
dim mrg as range
set mrg = range('A1') '指定任意单元格
if mrg.HasFormula =True Then
MsgBox '单元格'& Mrg.Address & ' 内有计算公式'
Else
MsgBox '单元格内没有计算公式'
end if
end sub
2、利用计算公式前面都有等号“=”这一性质来判断
sub T2()
dim mrg as range
set mrg = range('A1') '指定任意单元格
if Left(mrg.HasFormula ,1)= '=' Then
MsgBox '单元格'& Mrg.Address & ' 内有计算公式'
Else
MsgBox '单元格内没有计算公式'
end if
end sub