Excel VBA教程:Subtotal方法

应用于 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 类型,可选。

应用于 Range对象的 Subtotal方法。

创建指定区域或当前区域(如果该区域为单个单元格时)的分类汇总。

有关在 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 默认值

Excel VBA教程:Subtotal方法·示例

本示例创建工作表 Sheet1 中选定区域的分类汇总。该分类汇总是以第一个字段进行分组的求和,汇总对象为第二和第三个字段。


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

上页:Excel VBA教程:获取有关 Macintosh 关键字的“帮助” 下页:Excel VBA教程:SwapNode方法

Excel VBA教程:Subtotal方法

Excel VBA教程:SwapNode方法 Excel VBA教程:Table方法
Excel VBA教程:Text方法 Excel VBA教程:TextToColumns方法
Excel VBA教程:ToggleVerticalText方法 Excel VBA教程:TransferChildren方法
Excel VBA教程:Trendlines方法 Excel VBA教程:TwoColorGradient方法
Excel VBA教程:Undo方法 Excel VBA教程:Ungroup方法
Excel VBA教程:Union方法 Excel VBA教程:UnMerge方法
Excel VBA教程:Unprotect方法 Excel VBA教程:UnprotectSharing方法
Excel VBA教程:Update方法 Excel VBA教程:UpdateFromFile方法
Excel VBA教程:UpdateLink方法 Excel VBA教程:UpdateNotify方法
Excel VBA教程:UseDefaultFolderSuffix方法 Excel VBA教程:UserPicture方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号