如何替换多个工作表中除一个vba之外的所有单元格

Sub ReplaceCellsInWorksheets()
    Dim ws As Worksheet
    Dim cell As Range
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 判断工作表是否为VBA工作表
        If ws.CodeName <> "ThisWorkbook" Then
            ' 循环遍历工作表中的所有单元格
            For Each cell In ws.UsedRange
                ' 替换单元格中的内容
                cell.Value = Replace(cell.Value, "要替换的内容", "替换后的内容")
            Next cell
        End If
    Next ws
End Sub