Range.Subtotal (Excel)

Cria subtotais para o intervalo ou para a região atual, se o intervalo for uma única célula.

Subtotal (GroupBy, Function, TotalList, Replace, PageBreaks, SummaryBelowData)

Worksheets("Sheet1").Activate 
Selection.Subtotal GroupBy:=1, Function:=xlSum, _ 
 TotalList:=Array(2, 3)

Arguments

O seguinte argumento é opcional

GroupBy (Long) - O campo pelo qual agrupar, como um deslocamento inteiro baseado em 1. Para obter mais informações, consulte o exemplo.

Function (XlConsolidationFunction) - A função de subtotal.

Aqui você pode encontrar os valores possíveis para XlConsolidationFunction

TotalList - Uma matriz de deslocamentos de campo baseados em 1, indicando os campos aos quais os subtotais são adicionados. Para obter mais informações, consulte o exemplo

Optional arguments

Os seguintes argumentos são opcionais

Replace (Boolean) - True para substituir os subtotais existentes. O valor padrão é True.

PageBreaks (Boolean) - True para adicionar quebras de página após cada grupo. O valor padrão é False.

SummaryBelowData (XlSummaryRow) - Insere dados de resumo relativos ao subtotal.

Os valores de retorno possíveis são xlSummaryAbove - A linha de resumo será posicionada acima das linhas de detalhe nos tópicos, xlSummaryBelow - A linha de resumo será posicionada abaixo das linhas de detalhe nos tópicos.