Приветствую.
Подскажите, нашел часть кода в сети
Код
Sub Sum()
Selection.Subtotal GroupBy:=9, Function:=xlSum, _
TotalList:=Array(1), Replace:=True, PageBreaks:=True, _
SummaryBelowData:=True
End Sub
У меня есть Лист с данными состоящий из 4 столбцов. В первом столбце данные по организациям после каждого изменения надо рассчитывать подитог. Суммы выводятся в 4 столбце. И в конце выводить общий итог.
Необходимо написать макрос для формирования промежуточных итого не используя существующую функцию в интерфейсе, так как макрос будет запускаться из вне.
