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