Макрос промежуточного суммирования .

[Ravvil]

Добрый вечера всем. Ребят не знаю как решить следующую проблемку. Имеется Книга Excel на втором Листе расположено очень много записей , которые упорядоченны по типу. Задача состоит в следующим: необходим макрос для добавления строки после каждой 15 строки, а в 16 что бы добавлялось слово ИТОГО и формула суммирования на пример: А16= ИТОГО,
В16=СУММ(B1:B15) далее В33=СУММ(В17:В32) и т.д . Если конечно это возможно? Вписывать формулу для каждой записи Вы сами понимаете это геморрой.
За ранее благодарен.

[ZORRO2005]

Сообщение от Ravvil

Вписывать формулу для каждой записи Вы сами понимаете это геморрой.

Ну не так уж и долго.
1. В ячейку С1:

=ОСТАТ(СТРОКА()-1;15)+1

и протягиваем вниз
2. Ставим фильтр и в столбце С выбираем 1
3. Выделяем строки и нажимаем CTRL+Ж
4. Вставляем пустые строки
5. Выделяем столбец A и нажимаем F5-Выделить...-Пустые ячейки
6. Набираем ИТОГО и нажимаем CTRL+ENTER
7. Выделяем столбец B и нажимаем F5-Выделить...-Пустые ячейки
8. Ставим формулу =СУММ(B1:B15) и нажимаем CTRL+ENTER

Приложил видео

[ZORRO2005]

Еще один вариант с помощью ПРОМЕЖУТОЧНЫЕ ИТОГИ

1. В ячейку С1:

=ОСТАТ(СТРОКА()-1;16)+1<16

и протягиваем вниз
2.Выделяем столбцы A:C
3.Нажимаем промежуточный итог и выбираем:
при каждом изменении в столбце С суммировать по столбцу B

Видео приложил.

[Vja4eslav]

Sub Добавить_строки_с_формулами()
Dim i As Long, n As Long
n = 16
i = 1
Do
If i = n Then
Rows(i).Insert Shift:=xlDown
Cells(i, 1).FormulaR1C1 = "=SUM(R[-15]C:R[-1]C)"
n = n + 16
End If
i = i + 1
Loop While i <= Cells(Rows.Count, 1).End(xlUp).Row
Rows(i).Insert Shift:=xlDown
Cells(i, 1).FormulaR1C1 = "=SUM(R[-15]C:R[-1]C)"
End Sub

[Ravvil]

Сообщение от Vja4eslav

Sub Добавить_строки_с_формулами()
Dim i As Long, n As Long
n = 16
i = 1
Do
If i = n Then
Rows(i).Insert Shift:=xlDown
Cells(i, 1).FormulaR1C1 = "=SUM(R[-15]C:R[-1]C)"
n = n + 16
End If
i = i + 1
Loop While i <= Cells(Rows.Count, 1).End(xlUp).Row
Rows(i).Insert Shift:=xlDown
Cells(i, 1).FormulaR1C1 = "=SUM(R[-15]C:R[-1]C)"
End Sub

Спасибо Вячеслав, что помогаешь разобраться.Твое предложение более близко по моему. Не много не понял какие формулы надо вписать.
Прикрепил пример для наглядности вписал макрос, но пока не совсем все понял.Если не затруднит Вас показать на моем примере ,буду рад. А так если честно VBA не давно начинал изучать, по этому не много пока сложновато наверное.

[Vja4eslav]

Уважаемый Ravvil, я и сам самоучка в VBA, поэтому мой макрос наверное неуклюжий и некрасивый, но написал, как сумел.
Файл с макросом приложил. Если что-то будет непонятно, то спрашивайте пожалуйста.

[Ravvil]

Спасибо огромное Вячеслав.Все понятно, наглядно.Разобрался.Еще раз всем спасибо кто пытался помочь. ТЕМА Закрыта..