Точкой и запятая!

[budda999]

Есть лист, на нём импортированы данные, числа имеют такой вид: -2.320,000
-219,5

Если делать средствами Excel, "найти и заменить", то всё Ок.
Но, нужно не средствами Excel, а VBA.

Вопрос, как сделать?

Если делаю так: Cells.Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

то на выходе в ячейке имеем: -2320000 и -2195
?! Почему запятая потерялась?

[EducatedFool]

Почему запятая потерялась?

Потому что вы заменили точку What:="." на пустую строку Replacement:=""

Попробуйте так: Cells.Replace ".", ","

[budda999]

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

Потому что вы заменили точку What:="." на пустую строку Replacement:=""

Попробуйте так: Cells.Replace ".", ","

Попробовал, помогло, но только на половину.
Где была запятая, там и осталась (219,5), а вот с числом 2.320,000 ничего не выходит. Выглядит по прежнему - 2320000

[SAS888]

Если точка подразумевается как разделитель разрядов, а запятая - как разделитель целой и дробной части, то боюсь, что "оптом" эту задачу не решить. Предлагаю преобразовывать каждое значение отдельно. Но, при этом перебирать не все ячейки используемого диапазона, а только те, которые нас интересуют. Например, так:

Sub ConvNum()
    Dim x As Range: Application.ScreenUpdating = False
    For Each x In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlTextValues)
        If x Like "*#.#*" Then
            x = Val(Replace(x, ".", "")): x.NumberFormat = "General"
        End If
    Next
End Sub

Здесь присваивание формата необходимо для того, чтобы избежать автоматического преобразования полученных данных в формат "дата". Т.к. если это возможно, то Excel сделает это по умолчанию, чего нам совсем не нужно.

[budda999]

!!! О, круто!!!
Всё заработало!

Но, всё же есть но! Заметил, что есть такие числа: 1.883,900
После выполнения процедуры, число становится: 1883
Всё вроде бы хорошо, но почему 0,9 потерялось. ?!
Просто в дальнейшем, это числа будут обрабатываться математически.
А без сотых, итого будет отличаться

Как нить и это победить мона?

Спасибо всем заранее за помощь!!!

[SAS888]

Как нить и это победить мона?

Можно, если заменить Val() на CDbl(). При этом проигнорировав возможные ошибки. Например, так:

Sub ConvNum()
    Dim x As Range: Application.ScreenUpdating = False: On Error Resume Next
    For Each x In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlTextValues)
        If x Like "*#.#*" Then
            x = CDbl(Replace(x, ".", "")): x.NumberFormat = "General"
        End If
    Next
End Sub

[budda999]

Спасибо огромное SAS888 и EducatedFool за помощь!!!
Все работает!

Остановился на последнем варианте от SAS888.

P.S.: Не ожидал, так быстро получить ответы! Хороший форум!