Цитата: dantist когда данные напрямую из 1С копируешь копипастом то цифры больше 1000 форматируются как текст. Сразу говорю, что проблему не решить через формат ячеек, умножение на 1 (прибавление 0). Может кто знает как превратить текст в числа?
Чирканул для тебя пару строк, твой пример обрабатывает корректно.
Вставь код в личную книгу макросов, тогда он будет доступен в любой открытой книге экселя.
При необходимости добавь кнопку с кодом на панель.
Выделяешь на листе нужный диапазон и запускаешь.
__________________________________________________
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
___________________________________________________