VBA在几个不同的工作表中搜索和匹配值

Sub SearchAndMatchValue()
    Dim searchValue As String
    Dim ws As Worksheet
    Dim rng As Range
    Dim foundCell As Range
    
    ' 设置要搜索和匹配的值
    searchValue = "要搜索的值"
    
    ' 遍历每个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 在工作表中搜索匹配的值
        Set rng = ws.UsedRange ' 搜索范围为工作表中使用的所有单元格
        Set foundCell = rng.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
        
        ' 如果找到匹配的值
        If Not foundCell Is Nothing Then
            ' 在找到的单元格中插入数据
            foundCell.Value = "匹配成功"
            ' 修改单元格的格式
            foundCell.Font.Bold = True
        End If
    Next ws
End Sub