Вставка значений до определенной строки

RSS

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

Levanton

Пользователь

Сообщений: 15 Регистрация: 15.02.2014

13.05.2025 07:39:29

Здравствуйте уважаемые!

Снова я в затруднении. Нужно вставить (точнее заменить) значения ячеек построчно, но до определенной строки. Триггером номера строки будет являться изменение названия МЭС. То есть начиная с "Аргентинские МЭС", должно доходить до "Боливийские МЭС" и т.д.
Если кто-то найдет свой способ замены, буду только признателен.

Прикрепленные файлы

Для PE.xlsm (38.02 КБ)

Изменено: Levanton - 13.05.2025 08:14:33

БМВ

Модератор

Сообщений: 24620 Регистрация: 28.12.2016

Excel 2013, 2016, 2021

13.05.2025 07:54:57

из написанного и описанного понятно что

Цитата
написал: с "Аргентинские МЭС", должно доходить до "Боливийские МЭС"

а что , куда построчно вставлять заменять - ничего не понятно. Просто определить диапазон от-до? тогда поиск по столбцу МЭС. Следующий результат дает следующий диапазон. Не нашли следующего, значит до конца используемого диапазона. Вааще не нашли - значит совсем не те данные.

По вопросам из тем форума, личку не читаю.

Levanton Пользователь Сообщений: 15 Регистрация: 15.02.2014	#3 13.05.2025 08:15:39 Изменил прикреплённый файл. Добавил вторую вкладку "Как должно быть".

Levanton

Пользователь

Сообщений: 15 Регистрация: 15.02.2014

13.05.2025 08:16:57

Цитата
написал: тогда поиск по столбцу МЭС

Пробовал через "Найти" записать. Он ничего не пишет, пока что-нибудь с ячейкой не начнёшь делать. До этого пустота.

SAS888

Пользователь

Сообщений: 765 Регистрация: 01.01.1970

13.05.2025 09:05:52

Можно так:

Код

Sub Substit()
    Dim i As Long, s As String: Application.ScreenUpdating = False
    For i = 4 To [A:A].Find("Итого", LookAt:=xlWhole).Row - 1
        If Cells(i, 1) Like "* МЭС" Then s = Cells(i, 1) Else Cells(i, 1) = s
    Next
End Sub

Чем шире угол зрения, тем он тупее.