VBA代码-根据来自不同excel工作表的值替换文本字符串

Sub ReplaceText()

    Dim ws As Worksheet
    Dim searchRange As Range
    Dim cell As Range
    Dim searchString As String
    Dim replaceString As String
    
    ' 设置要搜索和替换的字符串
    searchString = "要搜索的字符串"
    replaceString = "要替换的字符串"
    
    ' 遍历每个工作表
    For Each ws In ThisWorkbook.Worksheets
    
        ' 设置要搜索的范围为工作表中的所有单元格
        Set searchRange = ws.UsedRange
        
        ' 遍历搜索范围中的每个单元格
        For Each cell In searchRange
        
            ' 检查单元格的值是否包含要搜索的字符串
            If InStr(1, cell.Value, searchString) > 0 Then
            
                ' 替换字符串
                cell.Value = Replace(cell.Value, searchString, replaceString)
                
            End If
            
        Next cell
        
    Next ws
    
    MsgBox "替换完成！"
    
End Sub