Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
5 / 5 / 0
Регистрация: 23.05.2016
Сообщений: 67
1

Макрос для вставки словосочетания в ячейки

29.06.2016, 08:50. Показов 1655. Ответов 4
Метки нет (Все метки)

Добрый день, дорогие программисты! Прошу сделать макрос для эксель, который вставлял бы словосочетание "Белгородский район" (сразу после "Белгородская область") в каждую строку столбца ADDRESS. То есть у нас есть такая строка: Белгородская область, с.Веселая Лопань, Садовая, д.1, кв.1, а нужна: Белгородская область, Белгородский район, с.Веселая Лопань, Садовая, д.1, кв.1. Файл прикрепляю. Прошу выложить готовый макрос в виде xls файла. Спасибо.
Вложения
Тип файла: xls vstavka_slova.xls (94.5 Кб, 3 просмотров)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.06.2016, 08:50
Ответы с готовыми решениями:

Макрос для вставки строк с текстом
В общем помогите написать код для вставки 2 строк от первой до последней на листе с учетом...

Макрос для поиска и вставки текста
Друзья, помогите, пожалуйста, с простенькой задачкой. Пусть, помимо прочего текста, в документе...

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

Макрос для вставки символов юникода
Помогите. Нужно сделать макрос на вставку символа юникода по тиму Chrw(8292) чтоб он отображался в...

4
3209 / 959 / 222
Регистрация: 29.05.2010
Сообщений: 2,076
29.06.2016, 09:29 2
Можно и без макроса: Найти "Белгородская область" и заменить на "Белгородская область, Белгородский район"
0
6859 / 2794 / 529
Регистрация: 19.10.2012
Сообщений: 8,524
29.06.2016, 09:47 3
Лучший ответ Сообщение было отмечено Smart31 как решение

Решение

Одна строка кода, добавьте (или замените) в любой код, можете записать рекордером:
Visual Basic
1
2
3
ActiveSheet.UsedRange.Columns(9).Replace What:="Белгородская область", Replacement:="Белгородская область, Белгородский район", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Выложить файл нет возможности.
1
132 / 108 / 22
Регистрация: 23.06.2015
Сообщений: 339
29.06.2016, 10:28 4
добрый день,Smart31,вариант макроса use,файл подгружу позднее

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub use()
    Dim z, t1$, t2$, i&: z = Range("I2:I" & Range("I" & Rows.Count).End(xlUp).Row).Value
   With CreateObject("VBScript.RegExp")
     For i = 1 To UBound(z): t = z(i, 1)
     .Pattern = ".+область,":   t1 = .Execute(t)(0)
     .Pattern = "с\..+": t2 = .Execute(t)(0)
       z(i, 1) = t1 & "Белгородский район , " & t2
     Next
   End With
     Range("I2").Resize(UBound(z), 1) = z
End Sub
0
132 / 108 / 22
Регистрация: 23.06.2015
Сообщений: 339
29.06.2016, 10:36 5
добавил файл-пример,кнопки use,повтор,используйте,например WinRaR
Вложения
Тип файла: rar aaa7.rar (21.3 Кб, 1 просмотров)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.06.2016, 10:36

Макрос для вставки таблицы в емаил с редактированием
Добрый день, Есть макрос по вставке таблицы в почтовый клиент Outlook. Помогите его немного...

Макрос по удалению текста после определенного словосочетания
Здравствуйте! Помогите пожалуйста, уже облазила весь интернет. Мне необходимо создать макрос в...

Макрос для вставки значений из двух именованных диапазонов
Доброго времени суток! Помогите пожалуйста вот с каким вопросом полному лошарику в макросах. ...

Макрос для вставки скопированного диапазона в свободную ячейку
Добрый день, прошу помочь мне со следущей задачей. Необходимо, что б по нажатию на "Кнопку11" в...

Макрос для автоматической вставки фото в лист Excel
Подскажите макрос вставить фото как фон к примечанию в Excel. Пример в файле. Фото в столбце 2.

Макрос для вставки текущей даты с веб-страницы
Добрый день! Идея такая: Защитить возможное изменение текущей системной даты. Т.е. есть файл с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru