Excel 是否有公式可以识别单元格中的特殊字符？

Question 1

没有代码？但是它很短小精悍，而且很漂亮... :(

您的 RegEx 模式[^A-Za-z0-9_-]用于删除所有单元格中的所有特殊字符。

Sub RegExReplace()

    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    RegEx.Global = True

    RegEx.Pattern = "[^A-Za-z0-9_-]"
    For Each objCell In ActiveSheet.UsedRange.Cells
        objCell.Value = RegEx.Replace(objCell.Value, "")
    Next

End Sub

编辑

这和你最初的问题最接近了。

在此处输入图片描述

第二个代码是带有 2 个参数的用户定义函数=RegExCheck(A1,"[^A-Za-z0-9_-]")。第一个是要检查的单元格。第二个是要检查的 RegEx 模式。如果模式与单元格中的任何字符匹配，它将返回 1，否则返回 0。

你可以像其他普通 Excel 公式一样使用它，只要你先用ALT+打开 VBA 编辑器F11，插入一个新的模块（！）并粘贴下面的代码。

Function RegExCheck(objCell As Range, strPattern As String)

    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    RegEx.Global = True
    RegEx.Pattern = strPattern

    If RegEx.Replace(objCell.Value, "") = objCell.Value Then
        RegExCheck = 0
    Else
        RegExCheck = 1
    End If

End Function

对于 RegEx 的新用户，我将解释您的模式：[^A-Za-z0-9_-]

[] stands for a group of expressions
^ is a logical NOT
[^ ] Combine them to get a group of signs which should not be included
A-Z matches every character from A to Z (upper case)
a-z matches every character from a to z (lower case)
0-9 matches every digit
_ matches a _
- matches a - (This sign breaks your pattern if it's at the wrong position)

Answer

没有代码？但是它很短小精悍，而且很漂亮... :(

您的 RegEx 模式[^A-Za-z0-9_-]用于删除所有单元格中的所有特殊字符。

Sub RegExReplace()

    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    RegEx.Global = True

    RegEx.Pattern = "[^A-Za-z0-9_-]"
    For Each objCell In ActiveSheet.UsedRange.Cells
        objCell.Value = RegEx.Replace(objCell.Value, "")
    Next

End Sub

编辑

这和你最初的问题最接近了。

在此处输入图片描述

第二个代码是带有 2 个参数的用户定义函数=RegExCheck(A1,"[^A-Za-z0-9_-]")。第一个是要检查的单元格。第二个是要检查的 RegEx 模式。如果模式与单元格中的任何字符匹配，它将返回 1，否则返回 0。

你可以像其他普通 Excel 公式一样使用它，只要你先用ALT+打开 VBA 编辑器F11，插入一个新的模块（！）并粘贴下面的代码。

Function RegExCheck(objCell As Range, strPattern As String)

    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    RegEx.Global = True
    RegEx.Pattern = strPattern

    If RegEx.Replace(objCell.Value, "") = objCell.Value Then
        RegExCheck = 0
    Else
        RegExCheck = 1
    End If

End Function

对于 RegEx 的新用户，我将解释您的模式：[^A-Za-z0-9_-]

[] stands for a group of expressions
^ is a logical NOT
[^ ] Combine them to get a group of signs which should not be included
A-Z matches every character from A to Z (upper case)
a-z matches every character from a to z (lower case)
0-9 matches every digit
_ matches a _
- matches a - (This sign breaks your pattern if it's at the wrong position)

Question 2

使用与 nixda 的代码类似的内容，这里有一个用户定义的函数，如果单元格有特殊字符，它将返回 1。

Public Function IsSpecial(s As String) As Long
    Dim L As Long, LL As Long
    Dim sCh As String
    IsSpecial = 0
    For L = 1 To Len(s)
        sCh = Mid(s, L, 1)
        If sCh Like "[0-9a-zA-Z]" Or sCh = "_" Then
        Else
            IsSpecial = 1
            Exit Function
        End If
    Next L
End Function

用户定义函数 (UDF) 非常容易安装和使用：

ALT-F11 打开 VBE 窗口
ALT-I ALT-M 打开新模块
粘贴内容并关闭 VBE 窗口

如果您保存工作簿，UDF 将随之保存。如果您使用的是 2003 之后的 Excel 版本，则必须将文件保存为 .xlsm 而不是 .xlsx

要删除 UDF：

调出如上所示的 VBE 窗口
清除代码
关闭 VBE 窗口

要从 Excel 使用 UDF：

=IsSpecial(A1)

要了解有关宏的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

和

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

有关 UDF 的详细信息

必须启用宏才能使此功能起作用！

Answer