在UsedRange中查找关键字- VBA (Excel)

Sub FindKeyword()
    Dim ws As Worksheet
    Dim rng As Range
    Dim keyword As String
    
    ' 设置要查找的关键字
    keyword = "关键字"
    
    ' 设置要查找的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取UsedRange
    Set rng = ws.UsedRange
    
    ' 在UsedRange中查找关键字
    Dim cell As Range
    For Each cell In rng
        If InStr(1, cell.Value, keyword, vbTextCompare) > 0 Then
            ' 找到匹配的关键字
            MsgBox "找到匹配的关键字：" & keyword & vbCrLf & "位置：" & cell.Address
            Exit Sub
        End If
    Next cell
    
    ' 没有找到匹配的关键字
    MsgBox "未找到匹配的关键字：" & keyword
End Sub