Как автоматически изменить некорректные поля на числа?

Question

[Noir]

Бывает что человек неправильно заполнил таблицу или спарсилось плохо и значение числовые показывает как текст в формате 1 123,32 и нужно много вручную менять на 1123.32 и т.д. Как можно автоматизировать этот процесс?

Answer 1

[Пычев Анатолий]

ну или макросом
Код надо вставить в новый модуль

Public Function SanitData(ByRef rng As Range) As Double
   Dim data As String
   Dim ret As Double
   
   data = SanitizeNumbers(CStr(rng.Value))
   
   SanitData = IIf(Len(data) > 0, CDbl(data), 0)
End Function

Private Function SanitizeNumbers(ByVal data As String) As String
    Dim pos As Long
    Dim char As Long

    data = Replace(data, ".", ",")
    pos = 1
    Do While pos <= Len(data)
        char = Asc(mid$(data, pos, 1))
        If Not (Chr(char) Like "[0-9,]") Then
            data = Replace(data, Chr(char), "")
            pos = pos - 1
        End If
        pos = pos + 1
    Loop
    SanitizeNumbers = data
End Function

Вызов макроса на фото

Comments

[Noir]

проблема не решилась, если я импортирую данные то скрипт или аддон перезаписывает клетки и Импорт выдает ошибку !ref

[Пычев Анатолий]

Не понял.
Если Вы импортируете в лист на котором работает эта функция и не трогаете ячеек с формулой, то все должно работать.
Единственное, что я вижу, может потребоваться ручной запуск пересчета

Да,
Если ячеек с вызовом этого макроса будет много, то Вы можете заменить тормоза у Excel. Для решения этого неудобства нужно реорганизовывать макрос под большие объемы данных.

[Noir]

скрипт не работает в google sheets(

[Alexander Ivanov]

Пычев Анатолий, пользователи часто путают Google Spreadsheets и MS Excel. Вероятно, речь была про Таблицы Google.

[Alexander Ivanov]

Vitaliy, ну, тоже самое, только надо переписать под JS.

[Пычев Анатолий]

да, это под Excel
Я только сейчас увидел тег гугл таблиц
Сорри.

С другой стороны, то разные приложения, зачем ставить тег Excel ели задаете вопрос по google sheets

[Noir]

Извиняюсь