使用VBA搜索整个工作簿

Sub SearchWorkbook()
    Dim ws As Worksheet
    Dim rng As Range
    Dim searchValue As String
    
    searchValue = "要搜索的内容" '将要搜索的内容替换为实际的搜索值
    
    For Each ws In ThisWorkbook.Worksheets '遍历工作簿中的每个工作表
        Set rng = ws.UsedRange '设置搜索范围为工作表中使用的区域
        
        '在搜索范围内查找匹配的值
        Set rng = rng.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
        
        If Not rng Is Nothing Then '如果找到匹配的值
            MsgBox "找到匹配的值在工作表 " & ws.Name & " 的单元格 " & rng.Address
        End If
    Next ws
End Sub