Всем доброго дня!
Есть вопрос, подскажите пожалуйста.
Нужно перевести текст в столбце J в числа.
Файл с данными и макросом приложил. Макрос привязан к кнопке (находится на уровне столбца X).
Код макроса:
Код, сразу говорю, работает. Однако работает за 4 итерации, что на мой взгляд избыточно.
Можно ли сделать элегантнее/правильнее за 1 действие?
Интересует решение именно для файла, который приложен.
Есть вопрос, подскажите пожалуйста.
Нужно перевести текст в столбце J в числа.
Файл с данными и макросом приложил. Макрос привязан к кнопке (находится на уровне столбца X).
Код макроса:
Код |
---|
Columns("J").SpecialCells(xlCellTypeConstants, xlTextValues). _ Replace What:=".", Replacement:="", LookAt:=xlPart 'убираю точки Columns("J").Select Selection.TextToColumns 'форматирую как число Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False 'меняю точки на запятые Selection.TextToColumns 'форматирую как число |
Код, сразу говорю, работает. Однако работает за 4 итерации, что на мой взгляд избыточно.
Можно ли сделать элегантнее/правильнее за 1 действие?
Интересует решение именно для файла, который приложен.