【Excel2019(六):数据透视表】【创建数据透视表+更改数据透视表汇总方式+数据透视表中的组合+汇总多列数据+创建计算字段+生成多张工作表】

上一篇:【Excel2019(五):分类汇总和数据有效性】【分类汇总+数据有效性】

1. 数据透视表

1.1 创建数据透视表

一列数据是一个字段
一行数据是一条记录

选中数据中任意单元格-插入-数据透视表

在这里插入图片描述
在这里插入图片描述

将上面的字段拖拽到下面对应的选项即可
在这里插入图片描述

1.2 更改数据透视表汇总方式

在这里插入图片描述

双击求和项:发生额的单元格

在这里插入图片描述

1.3 数据透视表中的组合

在这里插入图片描述

1.3.1 练习1

求和项为金额,行字段为所属区域和订购日期,订购日期分为四个季度。列字段为产品类别

在这里插入图片描述

在这里插入图片描述

月份时间数值过于详细,需要转化为季度。
选中订购日期列中任意单元格,右键组合,取消月日,勾选季度点击确定即可。
在这里插入图片描述

结果展示
在这里插入图片描述

在这里插入图片描述

1.3.2 练习2

对金额进行梯度汇总

在这里插入图片描述
在这里插入图片描述
结果展示
在这里插入图片描述

1.4 汇总多列数据

原数据
在这里插入图片描述

对所有员工的生产数量、平均产量、最大产量、最小产量进行统计
在这里插入图片描述

每个员工的汇总不需要,双击员工姓名单元格,显示出字段设置,勾选无即可
在这里插入图片描述
在这里插入图片描述

在这里插入图片描述
行字段部分完成,接下来完成列字段和值。拖拽四次生产数量到值区域。
在这里插入图片描述
双击第二个字段进行更改汇总方式并自定义名称
在这里插入图片描述
结果展示
在这里插入图片描述

1.5 创建计算字段

原数据
在这里插入图片描述

计算每个型号的利润率

在这里插入图片描述

在这里插入图片描述

还差一个计算利润率列。选中表中任意单元格,找到数据透视表工具-分析-字段、项目和集
在这里插入图片描述

在这里插入图片描述

在这里插入图片描述

最后更改一下单元格格式,改成百分比。
结果计算后有错误值,选中任意数据更改数据透视表选项中的格式,对于错误值,显示自定义即可。

在这里插入图片描述

1.6 生成多张工作表

在这里插入图片描述

生成透视表,将科目划分拖拽到筛选和值区域。

在这里插入图片描述

选中数据,找到数据透视表工具中的选项,点击旁边的下拉,点击显示报表筛选页
在这里插入图片描述
会生成多个透视表但是需要的是工作表需要把透视表删除。
选中所有透视表。用多个空白行复制粘贴覆盖原有的透视表即可。

下一篇:【Excel2019(七):认识公式与函数】【认识Excel公式(=+& 连字符+比较符运算+引用+绝对引用)认识函数(总分+平均分+最大值+最小值+排名+使用定位工具)】

  • 4
    点赞
  • 27
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
可以通过以下步骤实现: 1. 在一个新的Sheet创建汇总数据透视表,并设置好数据透视表的格式。 2. 编写一个VBA宏,遍历所有需要生成数据透视表的Sheet。 3. 在遍历过程,对每个Sheet进行以下操作: - 选需要生成数据透视表数据区域。 - 创建数据透视表,并设置好数据透视表的格式。 - 将数据透视表数据复制到汇总数据透视表的下方。 4. 运行VBA宏,生成所有数据透视表,并将它们汇总汇总数据透视表。 以下是一个示例VBA宏: ```VBA Sub GeneratePivotTables() Dim summarySheet As Worksheet Dim dataSheet As Worksheet Dim lastRow As Long Dim pivotTable As PivotTable Dim pivotCache As PivotCache '获取汇总数据透视表所在Sheet Set summarySheet = ThisWorkbook.Sheets("Summary") '清空汇总数据透视表下方的所有数据 summarySheet.Range("A2:Z1000").ClearContents '遍历所有需要生成数据透视表的Sheet For Each dataSheet In ThisWorkbook.Sheets If dataSheet.Name <> summarySheet.Name Then '选需要生成数据透视表数据区域 lastRow = dataSheet.Cells(Rows.Count, 1).End(xlUp).Row dataSheet.Range("A1:B" & lastRow).Select '创建数据透视表 Set pivotCache = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Selection) Set pivotTable = pivotCache.CreatePivotTable(TableDestination:=summarySheet.Range("A" & Rows.Count).End(xlUp).Offset(1), TableName:="PivotTable" & dataSheet.Name) '设置数据透视表的格式 With pivotTable .PivotFields("Column1").Orientation = xlRowField .PivotFields("Column2").Orientation = xlColumnField .AddDataField .PivotFields("Data"), "Sum of Data", xlSum End With '复制数据透视表数据汇总数据透视表下方 pivotTable.TableRange2.Copy summarySheet.Range("A" & Rows.Count).End(xlUp).Offset(1) End If Next '自动调整汇总数据透视表的列宽和行高 summarySheet.Cells.EntireColumn.AutoFit summarySheet.Cells.EntireRow.AutoFit End Sub ``` 注意:在运行该宏前,需要先在工作簿创建一个名为"Summary"的Sheet,并在该Sheet创建汇总数据透视表的格式。同时,该示例宏假设每个需要生成数据透视表的Sheet数据区域为A1:Bn,其第一列为"Column1",第二列为"Column2",第三列为"Data"。你需要根据你的实际情况进行修改。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值