Поиск ячейки с определенным текстом и замена его на текстовое значение другой ячейки

@Вадим1971 · Регистрация: 19.07.2020

Студворк — интернет-сервис помощи студентам

Здравствуйте! Есть лист с данными, выгружаемыми из сторонней программы. Задача привести его к удобоваримому виду для последующей обработки. Нужно в каждую ячейку со словом Итого (отметил зеленым) скопировать значение ячейки, находящейся на 6 строк выше и на 3 столбца правее (Наименование потребителя, отметил желтым). Количество потребителей и соответственно Итого может быть разным до 100, расположение обрабатываемых ячеек относительно друг друга всегда одинаковое.
Заранее спасибо всем тем кто откликнется! Файл прилагается )

passedbyz · 19.07.2020, 09:58

Вадим1971, Итого всегда с шагов в восемь строк идут? Или поиск по столбу А запустить желательно?

Добавлено через 4 минуты
как вариант-

Visual Basic
1
2
3
4
5
6
sub aaaaa
for r=9to 1000000step 8
  if cells(r,"a")=""then exit for
  cells(r,"a")=cells(r-6,"d")
next
end sub

@Вадим1971 · 19.07.2020, 10:04 **[ТС]**

Да итого всегда с шагом 8. И всегда в столбце А

passedbyz · 19.07.2020, 10:06

значит решение соответствует задаче?

@КостяФедореев · 19.07.2020, 10:07

Вадим1971,

Visual Basic
1
2
3
4
5
6
7
8
Sub rrr()
lRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To lRow
        If Cells(i, 1).Value = "Итого" Then
            Cells(i, 1).Value = Cells(i - 6, 4)
        End If
    Next i
End Sub

Еще вариант, но до последней заполненной строки будет работать цикл

@Narimanych · 19.07.2020, 10:08

Вадим1971,
для вашего фала попробуйте

Visual Basic
1
2
3
4
5
Sub MMM()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).Value = "Итого" Then Cells(i, 1).Value = Cells(i, 1).Value & Chr(10) & Cells(i - 6, 4).Value
Next
End Sub

@Вадим1971 · 19.07.2020, 11:07 **[ТС]**

Все работает! Спасибо, простенько и со вкусом!

Добавлено через 7 минут
passedbyz, Спасибо за решение, отлично подошло

Добавлено через 8 минут
КостяФедореев, Отличный рабочий вариант, спасибо!

Добавлено через 4 минуты
Narimanych, Макрос работает, но происходит не замена значения в ячейке, а добавление к Итого значения из верхней ячейки. Спасибо за труды!

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Вадим1971 0 / 0 / 0 Регистрация: 19.07.2020 Сообщений: 3
	19.07.2020, 10:04 [ТС]
	Да итого всегда с шагом 8. И всегда в столбце А 0

passedbyz Заблокирован
	19.07.2020, 10:06
	значит решение соответствует задаче? 0

@Вадим1971 0 / 0 / 0 Регистрация: 19.07.2020 Сообщений: 3
	19.07.2020, 11:07 [ТС]
	Все работает! Спасибо, простенько и со вкусом! Добавлено через 7 минут passedbyz, Спасибо за решение, отлично подошло Добавлено через 8 минут КостяФедореев, Отличный рабочий вариант, спасибо! Добавлено через 4 минуты Narimanych, Макрос работает, но происходит не замена значения в ячейке, а добавление к Итого значения из верхней ячейки. Спасибо за труды! 0