Страницы: 1
RSS
Удаление символов в числовых значениях выгруженных из 1С в определенном диапазоне во всех листах книги
 
Всем доброго времени суток, прошу Вашей помощи, при выгрузке данных из 1С у меня числа имеют символы их пытаюсь удалить с помощью макроса, но почему-то происходит удаление запятых...в файле показал что есть, что получается и что должно быть. Макрос не мой нашел на просторах интернета...Если можно его переделать замену на определенный диапазон всех листов, т.е. допустим S1:Z2000 на каждом листе книги.
Скрытый текст
Изменено: Mershik - 27.11.2019 17:38:40
Не бойтесь совершенства. Вам его не достичь.
 
Ну, вы меня знаете, я могу только на PQ вариант предложить :)
Вот горшок пустой, он предмет простой...
 
PooHkrd, да пригодится в будущем это точно, спасибо. в PQ это проще всего)
Но к сожалению нужен макрос.
Изменено: Mershik - 27.11.2019 17:58:14
Не бойтесь совершенства. Вам его не достичь.
 
Код
Sub tt1()
    With Selection
        .Replace What:=Chr(160), Replacement:=" "
        .Replace What:=".", Replacement:="."
        .FormulaLocal = .FormulaLocal
    End With
End Sub
 
RAN, почему "." ????????? спасибо большое!
Не бойтесь совершенства. Вам его не достичь.
 
Код
Function tt(cell As Double) As Double
   tt = Val(Replace(cell, ",", "."))
End Function
 
Добрый день! Точку на точку можно и не менять.
Владимир
 
Kuzmich, Спасибо.

вдруг кому-то пригодится
Скрытый текст
Не бойтесь совершенства. Вам его не достичь.
Страницы: 1
Наверх