Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как быстро заменить точки на запятые, убрать апострофы. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как быстро заменить точки на запятые, убрать апострофы. (Формулы/Formulas)
Как быстро заменить точки на запятые, убрать апострофы.
Mark1976 Дата: Воскресенье, 22.07.2018, 13:42 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 470
Репутация: 0 ±
Замечаний: 0% ±

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


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

Автор - Mark1976
Дата добавления - 22.07.2018 в 13:42
_Boroda_ Дата: Воскресенье, 22.07.2018, 21:57 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12743
Репутация: 5225 ±
Замечаний: 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
 
Ответить
СообщениеЭто сейчас у Вас столбец 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_
Дата добавления - 22.07.2018 в 21:57
Mark1976 Дата: Воскресенье, 22.07.2018, 22:26 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 470
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
_Boroda_, спасибо за помощь. Все работает.
 
Ответить
Сообщение_Boroda_, спасибо за помощь. Все работает.

Автор - Mark1976
Дата добавления - 22.07.2018 в 22:26
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как быстро заменить точки на запятые, убрать апострофы. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!