excel - 如何测试公式以查看该公式中是否使用了特定值

Question

从一个大工作表中，我试图找出该公式中是否使用了特定值。

例如公式：

 (In cell C1)=A1+B1*.75

我想检查公式中是否使用了 .75（即 75%） 有 1000 条记录是否可以检查整个 C 列

Answer 1

尝试这个：

Sub findIt()
    mesage = ""
    For Each r In Intersect(Range("C:C"), ActiveSheet.UsedRange)
        If r.HasFormula Then
            v = r.Formula
            If InStr(v, ".75") > 0 Then
                mesage = mesage & vbCrLf & r.Address
            End If
        End If
    Next
    MsgBox mesage
End Sub

Answer 2

这个版本高亮单元格：

Sub findIt()
    For Each r In Intersect(Range("C:C"), ActiveSheet.UsedRange)
        If r.HasFormula Then
            v = r.Formula
            If InStr(v, ".75") > 0 Then
                r.Interior.Color = 65535
            End If
        End If
    Next
End Sub