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

[komar73]

Подскажите пожалуйста какой командой можно преобразовать текстовое значение диаппазона А1:А6 в числовое

[Slavik]

Обясните а по какой логике вы собираетесь приобразовать слово Комар73?

[slan]

выделить пустую ячейку, копировать ее
выделить нужный диапазон-спецвставка-сложить

[SAS888]

Если на VBA, то можно так:

With [A1:A6]
        arr = .Value
        .NumberFormat = "General"
        .Value = arr
    End With

[komar73]

SAS888 Огромное спасибо, работает великолепно!

[slan]

достаточно просто:
With [A1:A6]
.NumberFormat = "General"
.Value = .Value
End With

[winfacks]

Есть какая то последовательность цифирь (вложеный файл)
Есть простая метода преобразования в число (выделить пустую ячейку, копировать ее
выделить нужный диапазон-спецвставка-сложить)
Но!
Часть чисел оно отлично преобразовывает (см вложение с макросом и княпкой для запуска такового), а часть оставляет.
Победить не могу блин никак - в чем может быть проблема?

[SAS888]

Вставьте в Ваш файл и выполните следующий макрос:

Sub TextToNum()

    Dim i As Integer, j As Integer, Ms As String
    Application.ScreenUpdating = False
    For i = 1 To Cells(Rows.Count, "R").End(xlUp).Row
        If Cells(i, "R") <> "" Then
            For j = 1 To Len(Cells(i, "R"))
                Select Case Asc(Mid(Cells(i, "R"), j, 1))
                Case 44, 46: Ms = Ms & "."
                Case 45, 48 To 57: Ms = Ms & Mid(Cells(i, "R"), j, 1)
                End Select
            Next
            Cells(i, "R").NumberFormat = "General": Cells(i, "R") = Val(Ms): Ms = ""
        End If
    Next
          
End Sub

[winfacks]

А можно комментами пояснение, как это работает? а то придеться делать етот же вариант для других столбцов (выборочно), а я как то с ходу понять не могу (ламер блин - но обучаемый )

[SAS888]

Организуем цикл с 1 до последней заполненной ячейки столбца "R".
Если ячейка не пуста, то организуем цикл от 1 до последнего символа значения ячейки. В этом цикле очищаем ячейку от "мусора", т.е. формируем строковую переменную, содержащую только символы цифр, а также, меняем запятую на точку (для VB это однозначно разделитель целой и дробной части). После выхода из внутреннего цикла, устанавливаем формат ячейки "Общий" и помещаем в эту ячейку преобразованное в число значение сформированной ранее строковой переменной. Вот и все.

Благодаря нашей "очистки", если, например, ячейка содержит значение "a1b2c3,d4e5@#$6", после обработки получим число 123,456