Как правильно произвести замену?

[clever77]

Здравствуйте форумчане.
Поздравляю с Новым годом и наступающим Рождеством!

Подскажите,если кто знает:
Excel содержит числовые данные ввиде 1907.42000
произвожу программно замену
Application.ReplaceFormat.NumberFor mat = "#,##0.00"
Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True

,т.е пытаюсь все точки заменить на запятые...
Вместо требуемого 1907,42, получаю 190 742 000,00
Как с этим бороться?

Есть способ задействовать цикл и для каждой ячейки провести
D="1907.42000" - значение ячейки исх
p = Val(D)
Получаем (т.е преобразовали в число)
p=1907,42

Как исп replace добиться требуемого результата?

[IgorGO]

1. отмечаете колонку с данными
2. ставите числовой формат с двумя знаками в дробной части
3. нажимаете Ctrl+H (найти и заменить), заменить . (точки) на , (запятые), жмете заменить все. закрываете диалог.

получилось?

[clever77]

Сообщение от IgorGO

1. отмечаете колонку с данными
2. ставите числовой формат с двумя знаками в дробной части
3. нажимаете Ctrl+H (найти и заменить), заменить . (точки) на , (запятые), жмете заменить все. закрываете диалог.

получилось?

А макросом?

[kuklp]

Был бы пример, макрос был бы еще ночью.

[clever77]

Сообщение от kuklp

Был бы пример, макрос был бы еще ночью.

Вот пример того что надо, что есть и что получается в 97_2003 и 2010

Причем макрос который приводится записан самим Excel 'ем, когда я делал замену в ручную.... Но на практике этот программный код работает не корректно.....

[kuklp]

Всего-то один знак поменял:-)