In diesem Beispiel werden Teilergebnisse für den ausgewählten Bereich in Sheet1 erstellt. Es handelt sich hierbei um Summen, die nach jeder Änderung im ersten Feld gruppiert werden. Die Teilergebnisse werden im zweiten und dritten Feld hinzu addiert.
Worksheets("Sheet1").Activate Selection.Subtotal groupBy:=1, function:=xlSum, _ totalList:=Array(2, 3)