Вставить 4 строки с формулами 4-х вышестоящих строк

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

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

Вставить 4 строки с формулами 4-х вышестоящих строк (Макросы/Sub)

den45444

Дата: Четверг, 06.08.2015, 09:51 | Сообщение № 1

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

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

Сообщений: 225

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

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

Excel 2010

Добрый день.
Помогите с решением макроса.
Задача следующая:
1. Вставить 4 строки над строкой где будет находится ячейка с текстом "Накладные расходы".
2. Все четыре строки должны быть как вышестоящие 4 строки со всеми такими же формулами.
3. Если возможно, то хотелось бы, чтобы следующий этап уже был не "Этап №2", а "Этап №3".

Прикрепляю пример.

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

Ответить

Manyasha

Дата: Четверг, 06.08.2015, 10:42 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

den45444, Например так:
[vba]

Код

Sub Add_Stage()
     lSt = Cells.Find(What:="Накладные расходы").Row
     Rows(lSt - 4 & ":" & lSt - 1).Copy
     Rows(lSt).Insert Shift:=xlDown
     Range("a" & lSt + 1 & ":f" & lSt + 2).ClearContents
     numSt = Split(Range("a" & lSt - 4), "№")
     Range("a" & lSt) = "Этап №" & numSt(1) + 1
     Range("a" & lSt + 2) = "Итого (этап №" & numSt(1) + 1 & "):"
End Sub

[/vba]

К сообщению приложен файл: 8052106-1.xlsm (19.3 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

den45444

Дата: Четверг, 06.08.2015, 10:50 | Сообщение № 3

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

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

Сообщений: 225

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

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

Excel 2010

Manyasha, Премного благодарен.

Ответить

den45444

Дата: Четверг, 06.08.2015, 13:44 | Сообщение № 4

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

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

Сообщений: 225

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

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

Excel 2010

Manyasha, Можете немного поправить макрос?
Оказывается мне нужно добавить не 4 строки, а столько сколько есть в предыдущем этапе, т.е. от начала этапа до итого.
И как прописать макрос, чтобы можно было удалить добавленный этап?
Выручайте:)

Ответить

roskoshenko

Дата: Четверг, 06.08.2015, 22:06 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

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

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

Excel 2010

примитива добавил, но вроде работает

К сообщению приложен файл: 1541191.xlsm (20.0 Kb)

Ответить

den45444

Дата: Пятница, 07.08.2015, 09:54 | Сообщение № 6

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

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

Сообщений: 225

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

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

Excel 2010

roskoshenko, Благодарю, но это не то.
Вот пример.
Нужно добавить только один полноценный этап со всеми формулами и строками предыдущего этапа. Строк предыдущего этапа может быть много.

Жду помощь от кого-нибудь.

К сообщению приложен файл: 2867191.xlsm (19.6 Kb)

Ответить

Manyasha

Дата: Пятница, 07.08.2015, 18:06 | Сообщение № 7

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

den45444, проверяйте:
[vba]

Код

Sub Add_Stage()
     Dim firstRow&, lastRow&
     firstRow = 0: lastRow = 0
     lSt = Columns("A:A").Find(What:="Накладные расходы").Row
     lastRow = lSt - 1
     For i = lSt To 1 Step -1
         If InStr(Cells(i, 1), "Этап") Then firstRow = i: numSt = Split(Cells(i, 1), "№")(1) + 1: Exit For
     Next i
     If firstRow = 0 Then MsgBox "Добавьте 1-й этап": Exit Sub
     Rows(firstRow & ":" & lastRow).Copy
     Rows(lSt).Insert Shift:=xlDown
     Range("a" & lSt + 1 & ":f" & lSt + lastRow - firstRow - 2).ClearContents
     Range("a" & lSt) = "Этап №" & numSt + 1
     Range("a" & lSt + lastRow - firstRow - 1) = "Итого (этап №" & numSt + 1 & "):"
End Sub

[/vba]

К сообщению приложен файл: 286719_1.xlsm (18.5 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

den45444

Дата: Суббота, 08.08.2015, 10:03 | Сообщение № 8

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

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

Сообщений: 225

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

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

Excel 2010

Manyasha, То что надо:) Благодарю за помощь.

Нагловато наверное будет, если я вас попрошу такой же смысл макроса написать, но только удалить последний этап.