使用VBA在工作表中搜索和选择字符串

Sub SearchAndSelectString()
    Dim searchString As String
    Dim searchRange As Range
    Dim foundCell As Range
    
    ' 获取要搜索的字符串
    searchString = InputBox("请输入要搜索的字符串:")
    
    ' 设置搜索范围为整个工作表
    Set searchRange = ActiveSheet.UsedRange
    
    ' 在搜索范围内查找字符串
    Set foundCell = searchRange.Find(What:=searchString, LookIn:=xlValues, LookAt:=xlPart)
    
    ' 如果找到了匹配的单元格，则选择该单元格
    If Not foundCell Is Nothing Then
        foundCell.Select
    Else
        MsgBox "未找到匹配的字符串。"
    End If
End Sub