Макрос заменяющий символ один на другой

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

Макрос заменяющий символ один на другой (Макросы/Sub)

Chelovekov

Дата: Суббота, 06.02.2021, 03:57 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 315

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

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

Excel 2016

Здравствуйте, прошу Вас, помочь, решить одну проблему. Нужно написать макрос, который будет заменять в дате, точку на нужный год. Пример прикрепляю.
Спасибо.

К сообщению приложен файл: 2677834.xlsx (8.5 Kb)

Ответить

Nic70y

Дата: Суббота, 06.02.2021, 08:26 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9185

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

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

Excel 2010

[vba]

Код

Sub u_247()
    u = Cells(Rows.Count, "a").End(xlUp).Row
    v = Range("d1") & " "
    Range("a2:a" & u).Replace What:=". ", Replacement:=v
End Sub

[/vba]

ЮMoney 41001841029809

Ответить

Chelovekov

Дата: Воскресенье, 07.02.2021, 15:46 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 315

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

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

Excel 2016

Огромное спасибо, а можно доработать макрос. Сделать так что бы он изменял данные, не по заданному диапазону, а только выделенные ячейки.

Ответить

_Igor_61

Дата: Воскресенье, 07.02.2021, 18:11 | Сообщение № 4

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

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

Сообщений: 504

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

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

Excel 2007

Цитата Chelovekov, 07.02.2021 в 15:46, в сообщении № 3 ()

только выделенные ячейки

Пять выделенных ячеек, пятьдесят, пятьсот? В конкретном диапазоне или произвольном? Select в помощь, но будьте осторожны.... Из Вашего последнего сообщения напрашивается вывод, что следующие вопросы будут - через две или через три или .... ячеек или строк... В чём заключается основная задача?