Подскажите, пожалуйста, каким макросом можно было бы заменить спецсимволы вроде римских цифр и т.д. следующим образом:
Символ такой - заменить на такой и т.д., чтобы можно было добавлять в макрос дополнительные правила замены.
Хотел воспользоваться таким макросом, но не сработал.
Символ такой - заменить на такой и т.д., чтобы можно было добавлять в макрос дополнительные правила замены.
Хотел воспользоваться таким макросом, но не сработал.
Код |
---|
Sub charset() For Each cell In Selection cell.Value = Replace(cell.Value, Chr(13), Chr(32)) Next For Each cell In Selection cell.Value = Replace(cell.Value, Chr(10), Chr(32)) Next End Sub |