Проблема в excel, нечисловые значения

[saashaamaar]

Добрый день!

Случилась такая проблема. Есть долгий цикл получения необходимых мне чисел, в конечном итоге заканчивается тем, что питон на выходе мне выдает значения, нужные мне. Думалось мне, что вот оно счастье, теперь провести небольшую статистику по этим значениям и будет счастье и результаты работы, но не тут-то было. Эксель пишет, что я не могу ничего сделать потому что все значения для него не числовые. Как с этим побороться?

Построить надо мне графики моды, медианы, дисперсии и среднего квадратичного отклонения.

п.с. Я поменял точки на запятые и наоборот уже несколько раз, не помогло.

[IgorGO]

открыл файл,
поставил курсор в первую ячейку
Ctrl+H
Зайти: .
Заменить на: .
(у меня разделитель целых и дробных - точка)
Заменить все
(75тыс... замен произведено)
Ок

всё! все - теперь числа

[китин]

Sub Макрос777()
Dim rn As Range
For Each rn In Intersect([a:f], ActiveSheet.UsedRange)
If rn Like "*#.#*" Then
rn = Val(rn) ', ".", ",")
rn.NumberFormat = "0.0000"
End If
Next
End Sub

макрос в модуль листа, Alt+ F8 . выделить название-выполнить.

[Hugo121]

Для одного столбца обычно удобно "текст по столбцам->готово"

[Miguel Sanchez]

А где код?
Можно присвоением массиву с типом variant и последующим выкидыванием в нужный диапазон.
Формат сам меняется на числовой в массиве.

Sub dataconvert()
Set wkRng = ActiveSheet.Cells.Item(1).CurrentRe gion
ReDim arr(wkRng.Rows.Count, wkRng.Columns.Count) As Variant
'Debug.Print UBound(arr, 1) & " X " & UBound(arr, 2)
arr = wkRng.Value
ActiveSheet.UsedRange.Item(1).Offse t(0, wkRng.Columns.Count + 1).Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End Sub

Если убрать Offset, вставит поверх исходного.

[kuklp]

В окно immediate:

Cells.Replace ".", ".", 2

и нажать enter.