Как быстро заменить точки на запятые, убрать апострофы.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как быстро заменить точки на запятые, убрать апострофы. (Формулы/Formulas)

Mark1976

Дата: Воскресенье, 22.07.2018, 13:42 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 738

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

Здравствуйте. Замучился уже. Скачиваю данные с сайта госзакупок, а так как специально, чтобы все усложнить, цены написаны через точку, да и еще есть апостроф. Каждый раз нажимаю контрл + н, меняю точки на запятые, удаляю апостроф. Подскажите как это сделать быстрее. Может макросом или еще как нибудь. Править в колонке F.

К сообщению приложен файл: ContractSearch_.csv (71.6 Kb)

Сообщение отредактировал Mark1976 - Воскресенье, 22.07.2018, 13:47

Ответить

_Boroda_

Дата: Воскресенье, 22.07.2018, 21:57 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Это сейчас у Вас столбец 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]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Mark1976

Дата: Воскресенье, 22.07.2018, 22:26 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 738

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

_Boroda_, спасибо за помощь. Все работает.

Ответить

Страница 1 из 1
1