Нет кода? Но это так коротко, легко и красиво и ... :(
Ваш шаблон [^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
редактировать
Это как можно ближе к вашему первоначальному вопросу.
Второй код - это пользовательская функция =RegExCheck(A1,"[^A-Za-z0-9_-]") с 2 аргументами. Первый - это клетка для проверки. Второй шаблон RegEx, который нужно проверить. Если шаблон соответствует любому из символов в вашей ячейке, он вернет 1, иначе 0.
Вы можете использовать его как любую другую обычную формулу Excel, если вы сначала откроете редактор VBA с помощью ALT+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)
