按组在Excel中以表格形式的总计
创始人
2024-09-03 06:01:06
0

在Excel中按组以表格形式进行总计,可以使用Excel的数据透视表功能。下面是一个示例代码,可以通过VBA在Excel中创建数据透视表并进行总计:

Sub CreatePivotTable()
    Dim wsData As Worksheet
    Dim wsPivot As Worksheet
    Dim rngData As Range
    Dim rngPivot As Range
    Dim pt As PivotTable
    Dim pf As PivotField
    Dim pi As PivotItem

    ' 设置数据源工作表和数据范围
    Set wsData = ThisWorkbook.Worksheets("Sheet1")
    Set rngData = wsData.Range("A1:C10")
    
    ' 创建新的数据透视表工作表
    Set wsPivot = ThisWorkbook.Worksheets.Add
    wsPivot.Name = "Pivot"
    
    ' 设置数据透视表的位置
    Set rngPivot = wsPivot.Range("A1")
    
    ' 创建数据透视表
    Set pt = ThisWorkbook.PivotTableWizard(SourceType:=xlDatabase, SourceData:=rngData, _
        TableDestination:=rngPivot, TableName:="PivotTable1")
    
    ' 设置数据透视表的行、列和值
    pt.PivotFields("Group").Orientation = xlRowField
    pt.PivotFields("Group").Position = 1
    pt.PivotFields("Item").Orientation = xlRowField
    pt.PivotFields("Item").Position = 2
    pt.AddDataField pt.PivotFields("Value"), "Total", xlSum
    
    ' 格式化数据透视表
    With pt
        .RowGrand = True
        .ColumnGrand = True
        .HasAutoFormat = True
        .DisplayErrorString = False
        .DisplayNullString = False
    End With
    
    ' 格式化数据透视表的值列
    With pt.PivotFields("Total")
        .NumberFormat = "#,##0.00"
    End With
    
    ' 自动调整列宽
    wsPivot.Columns.AutoFit
    
    ' 显示数据透视表
    wsPivot.Activate
    
End Sub

这段代码首先设置了数据源工作表和数据范围,然后创建了一个新的数据透视表工作表。接下来,代码使用PivotTableWizard方法创建了一个数据透视表,并设置了数据透视表的行、列和值。最后,我们对数据透视表进行了一些格式化,并自动调整列宽。

请确保在运行此代码之前,将数据源工作表的名称和数据范围替换为实际的名称和范围。

相关内容

热门资讯

记者揭秘!智星菠萝辅助(透视辅... 记者揭秘!智星菠萝辅助(透视辅助)拱趴大菠萝辅助神器,扑克教程(有挂细节);模式供您选择,了解更新找...
一分钟揭秘!约局吧能能开挂(透... 一分钟揭秘!约局吧能能开挂(透视辅助)hhpoker辅助靠谱,2024新版教程(有挂教学);约局吧能...
透视辅助!wepoker模拟器... 透视辅助!wepoker模拟器哪个好用(脚本)hhpoker辅助挂是真的,科技教程(有挂技巧);囊括...
透视代打!hhpkoer辅助器... 透视代打!hhpkoer辅助器视频(辅助挂)pokemmo脚本辅助,2024新版教程(有挂教程);风...
透视了解!约局吧德州真的有透视... 透视了解!约局吧德州真的有透视挂(透视脚本)德州局HHpoker透视脚本,必胜教程(有挂分析);亲,...
六分钟了解!wepoker挂底... 六分钟了解!wepoker挂底牌(透视)德普之星开辅助,详细教程(有挂解密);德普之星开辅助是一种具...
9分钟了解!wpk私人辅助(透... 9分钟了解!wpk私人辅助(透视)hhpoker德州透视,插件教程(有挂教学);风靡全球的特色经典游...
推荐一款!wepoker究竟有... 推荐一款!wepoker究竟有透视(脚本)哈糖大菠萝开挂,介绍教程(有挂技术);囊括全国各种wepo...
每日必备!wepoker有人用... 每日必备!wepoker有人用过(脚本)wpk有那种辅助,线上教程(有挂规律);wepoker有人用...
玩家必备教程!wejoker私... 玩家必备教程!wejoker私人辅助软件(脚本)哈糖大菠萝可以开挂,可靠技巧(有挂神器)申哈糖大菠萝...