Цитата: VVY Цитата: dantist Цитата: administrator Чирканул для тебя пару строк, твой пример обрабатывает корректно.
Вставь код в личную книгу макросов, тогда он будет доступен в любой открытой книге экселя.
При необходимости добавь кнопку с кодом на панель.
Выделяешь на листе нужный диапазон и запускаешь.
__________________________________________________
Sub Num1C()
Dim Data As Range
Set Data = Selection
Dim cell As Range
On Error Resume Next
For Each cell In Data
If IsNumeric(cell.Value) Then cell.Value = CDbl(cell.Value)
Next cell
Selection.NumberFormat = "#,##0"
On Error GoTo 0
End Sub
___________________________________________________
Спасибо! :D
Спасибо! Сам работаю теперь в восьмерке, очень помогает....
Рад, что помог. Кстати, скоро (думаю через месяц, максимум 2) я допишу и выложу надстройку для закупщика, с помощью которой многие операции в работе закупщика будут выполняться удобнее и быстрее. Функция конвертации псевдочисел там тоже будет, вот только скорость ее работы увеличена в 50 раз, в самый раз для тех, кому необходимо обрабатывать миллионы ячеек.
Ждем дня Х :)