Всем доброго времени суток, прошу Вашей помощи, при выгрузке данных из 1С у меня числа имеют символы их пытаюсь удалить с помощью макроса, но почему-то происходит удаление запятых...в файле показал что есть, что получается и что должно быть. Макрос не мой нашел на просторах интернета...Если можно его переделать замену на определенный диапазон всех листов, т.е. допустим S1:Z2000 на каждом листе книги.
Скрытый текст
Sub tt1() With Selection .Replace What:=Chr(160), Replacement:="" .Replace What:=Chr(32), Replacement:="" .Replace What:=Chr(39), Replacement:="" .FormulaLocal = .FormulaLocal End With End Sub
Sub auto_open() Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In Worksheets With ws.Range("S1:Z2000") .Replace What:=Chr(160), Replacement:=" " .Replace What:=".", Replacement:="." .FormulaLocal = .FormulaLocal End With Next Application.ScreenUpdating = True End Sub