спецсимволы в Office

dickofan

периодически возникает необходимость по-быстрому удалить\заменить все символы аля LF\CRLF и т.п. в базе, представленной в Access или Excel
приходится прибегать к извратам типа выгрузки базы в XML с последующим редактированием в каком-нибудь стороннем юникод\хекс редакторе
кто-нибудь знает как это сделать более быстро и менее болезненно?

dickofan

ы?

Usmanova72

пример екселя дай.

Usmanova72

Sub replace_sim
Code_ASCII_OLD = 10 'Код символа есла который заменить
Code_ASCII_NEW = 20 'Код нового символа
For Each c In Selection.Cells
c.Value = Replace(c.Value, Chr(Code_ASCII_OLD Chr(Code_ASCII_NEW
Next c
End Sub
Вот макрос который все сделает. Перез запуском надо выделить область где заменять.

dickofan

шпасиб