如何使用VBA来识别单元格是否具有特定的数值

我有以下代码来查找单元格是否具有特定值“0.0”。 但是，我没有意识到，如果10.0是一个价值，那么程序也会把它拿起来。 我该如何修改代码来准确地拾取0.0？

Sub ReformatDeplete() Dim SrchRng3 As Range Dim c3 As Range, f As String Set SrchRng3 = Worksheets("Melanoma").Range("M4", Worksheets("Melanoma").Range("M65536").End(xlUp)) Set c3 = SrchRng3.Find("0.0", LookIn:=xlValues) If Not c3 Is Nothing Then f = c3.Address Do With Worksheets("Melanoma").Range("A" & c3.Row & ":M" & c3.Row) .Font.ColorIndex = 1 .Interior.ColorIndex = 16 End With Set c3 = SrchRng3.FindNext(c3) Loop While c3.Address <> f End If End Sub 

任何build议，将不胜感激。

先谢谢了！

Answer 1

您正在寻找.Find函数的Lookat参数。

 Set c3 = SrchRng3.Find("0.0", LookIn:=xlValues, Lookat:=xlWhole) 

这个参数有两个常量xlPart和xlWhole 。 正如你所注意到的，如果没有指定，该函数默认为xlPart 。

要了解有关.Findfunction的更多信息， 请查看此链接。