如何在VBA中判断单元格是否有公式？

在VBA中，你可以使用`WorksheetFunction.CalculationState`属性和`Worksheet.Calculate`方法来判断单元格是否有公式。下面是一个简单的示例：

Sub CheckForFormulas()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为你想要检查的工作表名称
    
    For Each cell In ws.Cells
        If Not cell.HasFormula Then
            Debug.Print "Cell " & cell.Address & " does not contain a formula."
        Else
            Debug.Print "Cell " & cell.Address & " contains a formula."
        End If
    Next cell
End Sub

这段代码会遍历工作表上的每个单元格，如果单元格没有公式，则打印"该单元格不包含公式"；如果有公式，则打印"该单元格包含公式"。