Question

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

E.g。式：

 (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

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

2 个答案: