добавить пустую строку перед словосочетанием "... Итог"

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » добавить пустую строку перед словосочетанием "... Итог" (Формулы/Formulas)

АЛЕКСАНДР1986

Дата: Пятница, 26.08.2016, 15:44 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 169

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

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

Excel 2013

всем добрый день!
не подскажите как перед строкой в колонке "B" где встречается слово "... Итог" добавить новую строку и так дальше по всей таблице
как должно получиться представлено в EXCEL файле

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

Сообщение отредактировал АЛЕКСАНДР1986 - Пятница, 26.08.2016, 15:45

Ответить

Roman777

Дата: Пятница, 26.08.2016, 16:13 | Сообщение № 2

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

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

Сообщений: 980

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

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

Excel 2007, Excel 2013

АЛЕКСАНДР1986, макрос ток если...
[vba]

Код

Sub d1()
Dim i&
For i = Cells(Rows.count, 2).End(xlUp).Row To 4 Step -1
   If InStr(1, Cells(i, 2), "Итог") > 0 Then
      Rows(i).Insert
      Rows(i - 1).Copy Rows(i)
      Cells(i, 4) = "ИНЫЕ органы"
      Cells(i, 2).Resize(, 6).Interior.Color = 12379352
   End If
Next i
End Sub

[/vba]

Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Пятница, 26.08.2016, 16:15

Ответить

АЛЕКСАНДР1986

Дата: Пятница, 26.08.2016, 16:38 | Сообщение № 3

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

Ранг: Форумчанин

Сообщений: 169

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

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

Excel 2013

спасибо!
надеюсь все таки может кто нибудь формулу сможет соответствующую придумать?

Сообщение отредактировал АЛЕКСАНДР1986 - Пятница, 26.08.2016, 16:38

Ответить

abtextime

Дата: Пятница, 26.08.2016, 16:57 | Сообщение № 4

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

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

Сообщений: 828

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

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

Excel 2010

Формулы не умеют добавлять строки. А чем Вас макрос не устраивает? Пользователь таблицы не умеет вызывать готовый макрос?

Ответить

АЛЕКСАНДР1986

Дата: Пятница, 26.08.2016, 17:00 | Сообщение № 5

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

Ранг: Форумчанин

Сообщений: 169

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

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

Excel 2013

умею но у меня там ссылки а на ссылки макрос вроде не работает!
или я ошибаюсь?

Ответить

АЛЕКСАНДР1986

Дата: Пятница, 26.08.2016, 17:05 | Сообщение № 6

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

Ранг: Форумчанин

Сообщений: 169

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

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

Excel 2013

и насколько я знаю формулы умеют добавлять пустые строки!

Ответить

buchlotnik

Дата: Пятница, 26.08.2016, 17:08 | Сообщение № 7

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

Цитата

и насколько я знаю

плохо знаете. Формулы возвращают ЗНАЧЕНИЕ. Они не могут менять объекты в приложении. Единственная возможность - писать многоэтажную формулу, которая будет возвращать "" (пустую строку), но и это будет лишь ВИДИМОСТЬ, так как "" - это ЗНАЧЕНИЕ ячейки

Ответить

АЛЕКСАНДР1986

Дата: Пятница, 26.08.2016, 17:15 | Сообщение № 8

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

Ранг: Форумчанин

Сообщений: 169

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

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

Excel 2013

не подскажите тогда как усовершенствовать макрос чтобы он брал строку с уникальным кодом где написано "Итог" и вычитал из этой строки все предыдущие аналогичные строки где нету слова "Итог"
то что должно получиться представлено в таблице справа с подсвеченными красными ячейками!

это все нужно проделывать если значения которые стоят перед этим не достигают 100 процентов! иначе пустую строку не надо добавлять!
блин как-то походу дела сложно получается!