Замена точек на запятые

[НеВа6464]

Здравствуйте!
Копируя таблицы из 1С в Эксел, получаю числа с точкой в качестве разделителя целой и дробной части. Мой эксел считает эти числа текстом. Поэтому я делаю замену точек на запятые. И текст превращается в числа. Всё проходит нормально в ручном режиме. При попытке сделать эту замену макросом (автозаписью) ничего не выходит. Т.е. ВБА меняет точки на запятые, но текст не превращается в число при этом. Т.е. получаю то же самое число в текстовом формате, но уже с запятой вместо точки.
Что делать, как быть, чтобы таки получить число при замене точки на запятую?

Спасибо.

[was3110]

через функцию NumberFormat (меняйте формат ячейки или целого диапазона)

[НеВа6464]

намберформат не катит, т.е. не переводит текст в число
я пока изворачиваюсь через Val. Но дело в том, что у меня некоторые числа получаются в числовом формате. Возникает ошибка при использовании Val. Значит надо сначала понять, какой тип лежит в ячейке, а я этого тоже не умею делать.

[was3110]

пришлите мне на ящик (найдете в профиле) свой файл.
Я сделаю через функцию NumberFormat.
Ведь, если ячейки будут суммироваться, Вы поверите, что это числа....

[НеВа6464]

вот файл
Емэйл не нашёл в профайле. Есть форма для отправки по емэйлу, но туда не вкладывается файл. Либо я не разобрался с этим.

[VictorM]

Посмотрите мультик
Самый простой вариант

[VictorM]

Да... записал макрос, но он это все делать не хочет...
Поторопился

[VictorM]

Если устроит дополнительный столбец, то вот это

Sub Макрос5()
    [c2:c13].Formula = "=B2*$D$1"
End Sub

работает.
В D1 помещаем единицу

[НеВа6464]

Спасибо, Виктор.
Щас попробую

[VictorM]

Вот так все получается
Запустите на листе Исходник

Sub Макрос2()

Application.ScreenUpdating = False
[d1] = 1
With Columns("B:b")
        .Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    .Replace What:="'", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        End With
[c2:c13].Formula = "=B2*$D$1"
[c2:c13].Copy
[b2].PasteSpecial Paste:=xlValues
[b2:b13].NumberFormat = "0.00"
[c2:c13] = ""
[d1] = ""
End Sub