Макрос замены букв и цифр

Пользователь

Сообщений: 19 Регистрация: 01.01.1970

18.03.2011 15:17:59

Нужен макрос замены букв и цифр. Я так понимаю проще и лучше это делать с помощью регулярного выражения. RegExp.
Покажите как правильно делать замену с помощью регулярных выражений?
Примерно так
With Range("A1:A1000")
Cells.Replace "1234567890", ""
End With

dobrinia Пользователь Сообщений: 19 Регистрация: 01.01.1970	#2 18.03.2011 15:30:42 Я прайс от мусора чищу, поэтому значения должны быть в той же ячейке, откуда берутся данные. Да и строк кажыд раз разное число.. может быть 50 а может 50000

dobrinia Пользователь Сообщений: 19 Регистрация: 01.01.1970	#3 18.03.2011 16:20:19 Вот нашёл хороший файл с примерами регулярок. Может кто поможет разобрать первый пример по косточкам? <EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

dobrinia

Пользователь

Сообщений: 19 Регистрация: 01.01.1970

18.03.2011 16:21:39

{quote}{login=Dobrinia}{date=18.03.2011 04:20}{thema=}{post}Вот нашёл хороший файл с примерами регулярок.
Может кто поможет разобрать первый пример по косточкам?{/post}{/quote}

Забыл заархивировать! Качайте архив. а то в предыдущем посте размер больше 100кб вышел

Прикрепленные файлы

post_209647.rar (66.37 КБ)

dobrinia

Пользователь

Сообщений: 19 Регистрация: 01.01.1970

18.03.2011 16:47:19

Разобрался сам, очень удобрая вещь!
Примеры выше в архиве.

У меня например такой макрос работает, оставляет только цифры:
Dim RegEx As Object
Set RegEx = CreateObject("vbscript.regexp")
With RegEx
.Global = True
.Pattern = "[^\d]+" ' Тут шаблон на основе RegExp для замены"[^\d]+"
End With
For lngN = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(lngN, 4).Value = RegEx.Replace(Cells(lngN, 4).Value, "") ' заменям то, что попало под шаблон.
Next lngN
Set RegEx = Nothing

dobrinia Пользователь Сообщений: 19 Регистрация: 01.01.1970	#6 18.03.2011 18:35:34 {quote}{login=The_Prist}{date=18.03.2011 04:58}{thema=}{post}Ага. Одна беда - если попадется нецелое число(45,79), то оно станет 4579{/post}{/quote} Точно! Добавил запятую в шаблон)

Читают тему