如何使用excel宏中的like查找列中的特殊字符

Sub FindSpecialCharacters()
    Dim rng As Range
    Dim cell As Range
    Dim specialChars As String
    
    ' 定义要查找的特殊字符
    specialChars = "!@#$%^&*()_+|}{[]\:;'<>?,./""~`"
    
    ' 设置要查找的范围，这里假设要查找的列为A列，可以根据实际情况进行修改
    Set rng = Range("A:A")
    
    ' 循环遍历每个单元格
    For Each cell In rng
        ' 使用LIKE函数进行模式匹配查找
        If cell.Value Like "*" & specialChars & "*" Then
            ' 如果找到特殊字符，则在单元格旁边添加标记（例如在B列中添加"特殊字符"）
            cell.Offset(0, 1).Value = "特殊字符"
        End If
    Next cell
End Sub