[分享]用VBA判断单元格是否有公式方法
急需，在HOME里搜寻未果。此帖我在其他网站上找到，拿来分享。
两种方法：
1。利用HasFormula属性，可以判断单元格内是否有公式。
2。利用计算公式前面都有等号“=”这一性质来判断。
sub pd1()
dim mrg as range
set mrg = range("A1") '指定任意单元格
if mrg.HasFormula =True Then
MsgBox "单元格"& Mrg.Address & " 内有计算公式"
Else
MsgBox "单元格内没有计算公式"
end if
end sub
--------------------------------------------------------------------------------
sub pd2()
dim mrg as range
set mrg = range("A1") '指定任意单元格
if Left(mrg.HasFormula ,1)= "=" Then
MsgBox "单元格"& Mrg.Address & " 内有计算公式"
Else
MsgBox "单元格内没有计算公式"
end if
end sub
