第一，用 VBA 判斷單元格是否有公式的方法

開啟excel後，按ALT F11，開啟VBE編輯器，單擊插入——模組，然後在右邊程式碼框複製下面程式碼，按F5鍵執行，如果單元格有公式，會彈出訊息框：有公式，反之，彈出訊息框：沒有公式提醒。

Sub 判斷單元格是否有公式（）

If Range（“b2”）。HasFormula Then

MsgBox “有公式”

Else

MsgBox “沒有公式”

End If

End Sub

程式碼解釋：b2表示B2單元格，上面的程式碼就是利用 Range。

HasFormula 屬性和IF語句來判斷單元格是否有公式。

第二，用宏表函式判斷單元格是否有公式的方法

如下圖所示，B2:B6單元格區域，有些單元格有公式，有些沒有，如何判斷哪些單元格有公式呢？方法如下：

選擇C2單元格，按ctrl F3，調出名稱管理器，新建一個名稱：名稱輸入：公式，引用位置輸入=get。

cell（6,b2），確定。

然後在C2單元格輸入公式：=LEFT（公式）=“=”，如果單元格有公式，顯示TRUE，沒有公式顯示FALSE。

比如是要判斷A1和B1兩個單元格的內容是否相同

如果不必區分大小寫

則公式為

=A1=B1 如果值為TRUE則相同,如果值為FALSE則不相同

如果大小寫不同也是不相同,則要用EXACT函式

=EXACT(A1,B1) 如果值為TRUE則相同,如果值為FALSE則不相同

如果想用漢字來顯示,則要加套IF函式,那麼上面的兩個公式可以寫成

=IF(A1=B1,"相同","不相同")

=IF(EXACT(A1,B1),"相同","不相同")