Excel 怎么用VBA代碼快速查找替換指定字符

strSearch 是被查找的內容
strReplace 是替換的內容

Sub FindAndReplace(ByVal strSearch As String, ByVal strReplace As String)

    Cells.Replace What:=strSearch, Replacement:=strReplace, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
End Sub

Sub main()
     Call FindAndReplace("abcd", "ww")
End Sub