Как преобразовать в число

[winfacks]

2 SAS888:
тоесть если я хочу начинать не сначала , а с 3-й ячейки и поставить формат ячейки 2 знака после запятой и с разделителем разрядов, то могу писать в виде:

For i = 3 To Cells(Rows.Count, "M").End(xlUp).Row
If Cells(i, "M") <> "" Then
For j = 1 To Len(Cells(i, "M"))
Select Case Asc(Mid(Cells(i, "M"), j, 1))
Case 44, 46: Ms = Ms & "."
Case 45, 48 To 57: Ms = Ms & Mid(Cells(i, "M"), j, 1)
End Select
Next
Cells(i, "M") = "0 000,00": Cells(i, "R") = Val(Ms): Ms = ""
End If
Next
Правильно мыслю?

кстати - чейто у меня в етом режиме оно решило заменить все данные на "0 000,00" .... хотя на нескольких других столбцах сработало нормально ...
Сорри - нашел в чем обшибка, - стовбчик не правильно указал для вставляния : Cells(i, "M") = "0 000,00": Cells(i, "R") = Val(Ms): Ms = ""

[SAS888]

Правильно так:

Cells(i, "M").NumberFormat = "#,##0.00"