用于检查列的VBA代码仅包含公式

Sub CheckFormulas()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为要检查的工作表名称
    Set rng = ws.Range("A1:A10") '替换为要检查的列范围
    
    For Each cell In rng
        If cell.HasFormula Then
            '执行你的检查逻辑
            '例如，可以使用If语句检查公式是否符合预期
            If cell.Formula = "=A1+B1" Then
                '公式正确
            Else
                '公式错误
            End If
        Else
            '单元格不包含公式
        End If
    Next cell
End Sub