应用于 WorksheetFunction 对象的 Subtotal 方法。
创建分类汇总。有关在 Visual Basic 中使用工作表函数 Subtotal 的详细信息,请参阅在 Visual Basic 中使用工作表函数。
expression.Subtotal(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30)
expression 必需。该表达式返回一个 WorksheetFunction 对象。
Arg1 Double 类型,必需。
Arg2 Range 对象类型,必需。
Arg3-Arg30 Variant 类型,可选。
创建指定区域或当前区域(如果该区域为单个单元格时)的分类汇总。
有关在 Visual Basic 中使用工作表函数 Subtotal 的详细信息,请参阅在 Visual Basic 中使用工作表函数。
expression.Subtotal(GroupBy, Function, TotalList, Replace, PageBreaks, SummaryBelowData)
expression 必需。该表达式返回一个 Range 对象。
GroupBy Long 类型,必需。要用于分组的字段,为基于 1 的整数偏移量。有关详细信息,请参阅示例。
Function XlConsolidationFunction 类型,必需。分类汇总函数。
XlConsolidationFunction 可为以下 these XlConsolidationFunction 常量之一。 |
xlAverage |
xlCount |
xlCountNums |
xlMax |
xlMin |
xlProduct |
xlStDev |
xlStDevP |
xlSum |
xlUnknown |
xlVar |
xlVarP |
TotalList Variant 类型,必需。基于 1 的字段偏移量数组,指示将被分类汇总的字段。有关详细信息,请参阅示例。
Replace Variant 类型,可选。如果为 True,则替换现有分类汇总。默认值为 False。
PageBreaks Variant 类型,可选。如果为 True,则在每一组之后添加分页符。默认值为 False。
SummaryBelowData XlSummaryRow 类型,可选。放置相对于分类汇总的汇总数据。
XlSummaryRow 可为以下 XlSummaryRow 常量之一。 |
xlSummaryAbove |
xlSummaryBelow 默认值 |
本示例创建工作表 Sheet1 中选定区域的分类汇总。该分类汇总是以第一个字段进行分组的求和,汇总对象为第二和第三个字段。
Worksheets("Sheet1").Activate
Selection.Subtotal GroupBy:=1, Function:=xlSum, _
TotalList:=Array(2, 3)