[转载]VBA创建数据透视表

Sub 透视表()
Dim PTC As PivotCache
Dim PVT As PivotTable
Dim rng As Range
Set rng = Sheet1.Range("a1:d45") '数据源
Set PTC = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rng, Version:=xlPivotTableVersion14)
Set PVT = PTC.CreatePivotTable(TableDestination:=Range("h1"), TableName:="透视试验", DefaultVersion:=xlPivotTableVersion14)
Set rng = Nothing '释放对象变量
With PVT.AddFields RowFields:=Array("编码", "名称"), ColumnFields:="方向" '填加行字段和列字段
.AddDataField .PivotFields("本币"), "计数:本币", xlCount '计数
.AddDataField .PivotFields("本币"), "sum 本币", xlSum '求和
'筛选
' For Each bm In .PivotFields("编码").PivotItems
' If bm <> "05-0018" Then
' bm.Visible = False
' End If
' Next
.RowAxisLayout xlTabularRow '以表格形式显示
.ShowDrillIndicators = False '取消+-按钮
.RowGrand = False '每行汇总不显示
.ColumnGrand = False '每列汇总不显示
.PivotFields("编码").Subtotals(1) = False ''去掉编码字段中分类汇总功能，Subtotals(1)=false代表将索引 1（自动）为 false，则其他所有值将设置为 False。如果需要分类汇总功能，则设置为true或不要这句；
End With
Set PTC = Nothing
Set PVT = Nothing
End Sub

原文链接：VBA创建数据透视表

[转载]VBA创建数据透视表相关推荐

【转载】使用Pandas创建数据透视表
使用Pandas创建数据透视表本文转载自:蓝鲸的网站分析笔记原文链接:使用Pandas创建数据透视表目录 pandas.pivot_table() 创建简单的数据透视表增加一个行维度(inde ...
动态新增表字段_制作动态的数据透视表（一）：定义名称法创建数据透视表
--施瓦辛格:没有跌倒过的人不会成功. 我们的日常工作中,会经常遇到一种情况:创建好数据透视表后,有其他被遗漏的数据内容需要重新插入到数据源后,有其他被遗漏的数据内容需要重新插入到数据源中:或者是需要 ...
【Excel 2013 数据透视表学习】一、创建数据透视表
1 数据透视表是Excel中数据处理分析工具. 用途: 1. 快速分类汇总.比较大量数据. 2. 快速变化统计分析维度查看统计结果. 数据透视表不仅综合了数据排序.筛选.组合及分类汇总等数据分析方法 ...
合并计算+创建数据透视表+筛选+分类汇总
一.合并计算执行此操作的条件是,各项必须相同,且各项排列顺序要相同,例如,要合并上下学期成绩时,姓名排列顺序以及各科排列顺序都要相同才能将两张表的数据合并到另一张表中. 合并方法,单击合并计算,在弹 ...
职称计算机excel2015年,【2015年职称计算机Excel重点精讲:创建数据透视表】- 环球网校...
[摘要]2015年职称计算机Excel重点精讲:创建数据透视表利用Excel提供的数据透视表向导,可以很方便地建立数据透视表.以图8-1所示的年终津贴分配表为例,要求统计各部门的津贴总和以及各部门 ...
如何创建数据透视表的方法
内容提要:本文介绍excel中如何创建数据透视表的方法,并分为数据区域和列表区域来分别介绍,并给出数据透视表教程链接.对Excel感兴趣的朋友可加Excel学习交流群:284029260(www.it ...
Excel数据透视表经典教程二《创建数据透视表》
一.创建数据透视表由上图:Ctrl+A选中图表,然后点击插入-点击数据透视表选择在新/现有工作表中创建数据透视表 1.对不同品牌下的不同车型进行计数 2.查看不同品牌的收入是多少 3.将不同的地区 ...
excel 透视表 vba_使用Excel VBA删除数据透视表计算字段
excel 透视表 vba Yesterday, I started out with the best of intentions, planning to get some work done, ...
【VBA】数据透视表刷新
刷新(多表) Sub activepath() Dim sht, st As Worksheet Set st = ThisWorkbook.Worksheets(" ...

[转载]VBA创建数据透视表

[转载]VBA创建数据透视表相关推荐

最新文章

热门文章