✔ 最佳答案
在VBA用 HasFormula
舉例:
Sub find_formula()
[B1] = [A1].HasFormula
End Sub
如A1是公式, B1顯示 TRUE
如A1不是公式, B1顯示 FALSE
2007-08-04 12:12:08 補充:
Function代碼如下:Function KCW(rge As Range) As IntegerFor Each r In rgeIf r.HasFormula Then num = num + 1NextKCW = numEnd Function輸入公式=kcw(A1)如A1是公式, 出 1, 若否 出 0如輸入公式=kcw(A1:A10)如A1:A10內有6格是公式, 出 6如全部是公式出 10, 若全部不是 出 0