Здравствуйте. Замучился уже. Скачиваю данные с сайта госзакупок, а так как специально, чтобы все усложнить, цены написаны через точку, да и еще есть апостроф. Каждый раз нажимаю контрл + н, меняю точки на запятые, удаляю апостроф. Подскажите как это сделать быстрее. Может макросом или еще как нибудь. Править в колонке F.
Здравствуйте. Замучился уже. Скачиваю данные с сайта госзакупок, а так как специально, чтобы все усложнить, цены написаны через точку, да и еще есть апостроф. Каждый раз нажимаю контрл + н, меняю точки на запятые, удаляю апостроф. Подскажите как это сделать быстрее. Может макросом или еще как нибудь. Править в колонке F.Mark1976
Это сейчас у Вас столбец F, а завтра будет другой. Поэтому сделал определение столбца по первой ячейке выделенного диапазона. И вариант отдельно для F Положите макрос в Персонал (если не знаете что это - https://vremya-ne-zhdet.ru/vba-excel/lichnaya-kniga-makrosov/), вытащите кнопку на него или в панель быстрого доступа, или на ленту. Или запускайте сразу из Персонала [vba]
Код
Sub tt() Dim d_ As Range c_ = Selection(1).Column ' столбец первой ячейки выделенного диапазона 'c_ = 6 'если всегда столбец F r_ = Cells(Rows.Count, c_).End(3).Row Set d_ = Cells(1, c_).Resize(r_) With d_ .Replace What:=".", Replacement:="," .Replace What:="'", Replacement:="" .FormulaLocal = .FormulaLocal End With End Sub
[/vba]
Это сейчас у Вас столбец F, а завтра будет другой. Поэтому сделал определение столбца по первой ячейке выделенного диапазона. И вариант отдельно для F Положите макрос в Персонал (если не знаете что это - https://vremya-ne-zhdet.ru/vba-excel/lichnaya-kniga-makrosov/), вытащите кнопку на него или в панель быстрого доступа, или на ленту. Или запускайте сразу из Персонала [vba]
Код
Sub tt() Dim d_ As Range c_ = Selection(1).Column ' столбец первой ячейки выделенного диапазона 'c_ = 6 'если всегда столбец F r_ = Cells(Rows.Count, c_).End(3).Row Set d_ = Cells(1, c_).Resize(r_) With d_ .Replace What:=".", Replacement:="," .Replace What:="'", Replacement:="" .FormulaLocal = .FormulaLocal End With End Sub