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

Question

我有以下代码来查找单元格是否具有特定值“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

任何建议，将不胜感激。

提前致谢！

Answer 1

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

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

这个参数有两个常数，xlPart和xlWhole。如您所见，如果未指定，该函数默认为xlPart.

要了解有关该.Find功能的更多信息，请查看此链接。