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

[agregator]

Здравствуйте, уважаемые программисты. Подскажите код, который преобразует числа, сохранённые как текст, в числа. Во вложении пример чисел, сохранённых как текст.

[SAS888]

Можно выполнить такой макрос:

Sub Conv()
    With ActiveSheet.UsedRange
        arr = .Value
        .NumberFormat = "General"
        .Value = arr
    End With
End Sub

Пример во вложении.

[agregator]

SAS888, большое спасибо, то что надо!

[Zhuldyz]

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

Можно выполнить такой макрос:

Sub Conv()
    With ActiveSheet.UsedRange
        arr = .Value
        .NumberFormat = "General"
        .Value = arr
    End With
End Sub

Пример во вложении.

а если число с запятой например 2,2 то оно не преобразовывается в число. Как можно преобразовать такие числа?

[Fierce]

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

а если число с запятой например 2,2 то оно не преобразовывается в число. Как можно преобразовать такие числа?

Можно преобразовать с помощью функции Val

[SAS888]

Можно так:

Sub Conv()
    With ActiveSheet.UsedRange
        .Replace ",", "."
        arr = .Value
        .NumberFormat = "General"
        .Value = arr
    End With
End Sub