vba excel查找字符串

要在 Excel 中使用 VBA 查找字符串，可以使用以下代码：

Sub FindString()
    Dim searchString As String
    Dim searchRange As Range
    Dim foundCell As Range
    
    '设置要查找的字符串
    searchString = "要查找的字符串"
    
    '设置要查找的范围
    Set searchRange = ActiveSheet.Range("A1:D10")
    
    '在范围内查找字符串
    Set foundCell = searchRange.Find(what:=searchString, LookIn:=xlValues, lookat:=xlPart)
    
    '如果找到了字符串，将其选中
    If Not foundCell Is Nothing Then
        foundCell.Select
    Else
        MsgBox "未找到字符串！"
    End If
End Sub

在上面的代码中，你需要修改以下行来适应你的需求：

- `searchString = "要查找的字符串"`：将字符串 `"要查找的字符串"` 替换为你要查找的字符串。
- `Set searchRange = ActiveSheet.Range("A1:D10")`：将范围 `"A1:D10"` 替换为你要查找的范围。
- `lookat:=xlPart`：如果要查找完全匹配的字符串，将 `xlPart` 替换为 `xlWhole`。