TotalList

[Fugitive]

Уважаемые, подскажите как быть, если кол-во столбцов с итогами заранее неизвестно:

Код: Выделить всё

   Worksheets(k).Range(rr2).Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(1, 2), Replace:=True, PageBreaks:=False, _
        SummaryBelowData:=True


Можно ли передать строку в totalist с номерами столбцов или как-нубудь еще ?

[Genyaa]

Можно.

Вместо Array(1,2) в аргументе можно испльзовать имя массива, содержащего номера столбцов, в которых должны быть составлены подитоги.

Этот массив можно создать и заполнить, как нужно, в любом месте программы до вызова Subtotal.

Например, чтобы подитоги были для всех заполненых столбцов на листе, кроме первого (при том, заранее неизвестно, сколько столбцов на листе):

Код: Выделить всё

Redim ar(1 to Worksheets(k).UsedRange.Columns.Count-1) as Integer
For i = 1 to Worksheets(k).UsedRange.Columns.Count-1
    ar(i) = i+1
next i
Worksheets(k).UsedRange.Subtotal GroupBy:=1, Function:=xlSum, _
     TotalList:=ar, _ '<<<<<<<<<=
     Replace:=True, PageBreaks:=False, _
     SummaryBelowData:=True

[Fugitive]

Большое спасибо !