Excel VBA，在命名区域的特定单元格中搜索值

Sub SearchValueInNamedRange()
    Dim rng As Range
    Dim searchValue As Variant
    Dim resultCell As Range
    
    ' 定义要搜索的命名区域
    Set rng = Range("NamedRange")
    
    ' 定义要搜索的值
    searchValue = "要搜索的值"
    
    ' 在命名区域中搜索值
    Set resultCell = rng.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 检查是否找到了匹配的单元格
    If Not resultCell Is Nothing Then
        ' 找到了匹配的单元格
        MsgBox "找到了匹配的值。单元格位置：" & resultCell.Address
    Else
        ' 未找到匹配的单元格
        MsgBox "未找到匹配的值。"
    End If
End Sub