Требуется все цены перевести в руб.

[bvitaly]

Проблема в том, что цены в столбике указаны как в руб. так и в usd. Usd надо пересчитать в руб. и подписать как руб. А то что было в рублях оставить. Самое главное что данные цены так и записаны "5.24 USD", т.е это не в свойствах ячейки задано "USD" а так и записано, с рублями тоже самое. А мне в добавок ко всему надо чтоб они стали в нормальном цифровом виде, а руб задавалось свойствами ячейки.
Вот...

[alibek]

Ну что тебе сказать...
Проходишься по всем ячейкам, проверяешь Right$(Cells(...).Text, 3). В зависимости от этого значения изменяешь Cells(...).NumberFormat и затем делаешь Cells(...).Value = Val(Left$(Cells(...).Text, Len(Cells(...).Text) - 4).
Все, в путь.