Range.Subtotal (Excel)

Crea subtotales para el rango (o la región actual, si el rango sólo tiene una celda).

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

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

Arguments

Estos son los argumentos con nombre :

GroupBy (Long) - El campo de "agrupar por", como un desplazamiento entero basado en uno.

Function (XlConsolidationFunction) - La función subtotal.

Aquí puede ver valores posibles para XlConsolidationFunction

TotalList - Matriz de desplazamientos de campo basados en unos, que indica los campos a los que se suman los subtotales

Optional arguments

Los siguientes argumentos son opcionales

Replace (Boolean) - Si es True, se reemplazan los subtotales existentes.

PageBreaks (Boolean) - Si es True, se agregan saltos de página después de cada grupo.

SummaryBelowData (XlSummaryRow) - Coloca los datos de Resumen relativos al subtotal.

Posibles valores de retorno son xlSummaryAbove - La fila de resumen estará sobre las filas de detalle en el esquema, xlSummaryBelow - La fila de resumen estará debajo de las filas de detalle en el esquema.