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

@Smart31 · Регистрация: 23.05.2016

Добрый день, дорогие программисты! Прошу сделать макрос для эксель, который вставлял бы словосочетание "Белгородский район" (сразу после "Белгородская область") в каждую строку столбца ADDRESS. То есть у нас есть такая строка: Белгородская область, с.Веселая Лопань, Садовая, д.1, кв.1, а нужна: Белгородская область, Белгородский район, с.Веселая Лопань, Садовая, д.1, кв.1. Файл прикрепляю. Прошу выложить готовый макрос в виде xls файла. Спасибо.

toiai · 29.06.2016, 09:29

Можно и без макроса: Найти "Белгородская область" и заменить на "Белгородская область, Белгородский район"

@Hugo121 · 29.06.2016, 09:47

Одна строка кода, добавьте (или замените) в любой код, можете записать рекордером:

Visual Basic

1
2
3

ActiveSheet.UsedRange.Columns(9).Replace What:="Белгородская область", Replacement:="Белгородская область, Белгородский район", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Выложить файл нет возможности.

@Svsh2015 · 29.06.2016, 10:28

добрый день,Smart31,вариант макроса use,файл подгружу позднее

Visual Basic

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

@Svsh2015 · 29.06.2016, 10:36

добавил файл-пример,кнопки use,повтор,используйте,например WinRaR

toiai 3217 / 966 / 223 Регистрация: 29.05.2010 Сообщений: 2,085
	29.06.2016, 09:29	2
	Можно и без макроса: Найти "Белгородская область" и заменить на "Белгородская область, Белгородский район" 0

Опции темы

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

Решение