我想知道如何运行vba脚本在一个工作表而不是整个工作组中查找和替换多个单词？

Sub FindAndReplaceWords()
    Dim ws As Worksheet
    Dim rng As Range
    Dim findWords As Variant
    Dim replaceWords As Variant
    Dim i As Long
    
    ' 设置要查找和替换的单词
    findWords = Array("word1", "word2", "word3")
    replaceWords = Array("replacement1", "replacement2", "replacement3")
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为你要操作的工作表名称
    
    ' 设置要查找和替换的范围
    Set rng = ws.UsedRange ' 可以根据需要修改范围
    
    ' 循环遍历每个要查找的单词
    For i = LBound(findWords) To UBound(findWords)
        ' 使用Replace函数进行查找和替换
        rng.Replace What:=findWords(i), Replacement:=replaceWords(i), _
                    LookAt:=xlWhole, MatchCase:=False
    Next i
End Sub