循环遍历所有工作表以查找包含特殊字符的单元格

Sub FindCellsContainingSpecialCharacters()
    Dim ws As Worksheet
    Dim cell As Range
    Dim specialChars As String
    Dim foundCells As Range
    
    specialChars = "!@#$%^&*()_+{}|:<>?~`-=[]\;',./"
    Set foundCells = Nothing
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 在当前工作表中查找包含特殊字符的单元格
        For Each cell In ws.UsedRange
            If ContainsSpecialCharacter(cell.Value, specialChars) Then
                ' 将找到的单元格添加到结果集中
                If foundCells Is Nothing Then
                    Set foundCells = cell
                Else
                    Set foundCells = Union(foundCells, cell)
                End If
            End If
        Next cell
    Next ws
    
    ' 处理找到的单元格，例如替换特殊字符或进行其他操作
    If Not foundCells Is Nothing Then
        ' 在这里添加处理逻辑
        ' 例如，可以使用 foundCells.Replace 方法替换特殊字符
        ' foundCells.Replace specialChars, ""
    End If
    
    ' 清除对象引用
    Set foundCells = Nothing
    Set cell = Nothing
    Set ws = Nothing
End Sub

Function ContainsSpecialCharacter(text As String, specialChars As String) As Boolean
    Dim i As Integer
    
    ' 检查文本中是否包含特殊字符
    For i = 1 To Len(specialChars)
        If InStr(text, Mid(specialChars, i, 1)) > 0 Then
            ContainsSpecialCharacter = True
            Exit Function
        End If
    Next i
    
    ContainsSpecialCharacter = False
End Function