如何用VBA实现数据透视表

Michealcn · 发表于 2016-9-1 15:00

如何使用VBA中SELECT语句查询Sheet1中“E”列左侧表的数据，在Sheet2中生成一张如Sheet1中“E“列右侧的数据透视表。

Excel学徒123 · 发表于 2016-9-1 15:15

貌似没有查询什么吧，应该就是利用左边的表直接生成数据透视表？

Michealcn · 发表于 2016-9-1 15:37

Sheet1中的E列左侧为数据，E列右侧为数据透视后的结果。希望能用VBA的方式在Sheet2中生成数据透视后的表。

爱疯 · 发表于 2016-9-1 17:56

本帖最后由爱疯于 2016-10-19 17:03 编辑

'http://www.excelpx.com/thread-424101-1-1.html
'创建方式1：通过数据透视表向导。03可用
Sub CreatePivotTable1()
Dim pt As PivotTable
Dim data As Range
Dim des As Range
'1）相关
Set data = Sheets(1).[a1].CurrentRegion    '数据源
Set des = Sheets(2).[a1]                   '透视表的位置
des.CurrentRegion.Clear
'2）创建数据透视表对象
Set pt = des.Parent.PivotTableWizard(xlDatabase, data, des)
'3）设置数据透视表
With pt
      '行字段
      .PivotFields("商品代码").Orientation = xlRowField
      .PivotFields("品名").Orientation = xlRowField
      '列字段
      .PivotFields("客户名称").Orientation = xlColumnField
      '数值字段
      .PivotFields("数量").Orientation = xlDataField
      '商品代码字段有分类汇总
      .PivotFields("商品代码").Subtotals(1) = False
End With
End Sub

商品查询2.rar (21.45 KB, 下载次数: 25)

Michealcn · 发表于 2016-9-5 12:40

爱疯发表于 2016-9-1 17:56
Sub CreatePivotTable()
Dim data As Range, rng As Range
Dim pc As PivotCache

非常感谢！但还是希望用VBA中SELECT语句查询方式。

爱疯 · 发表于 2016-9-5 16:19

商品查询3.rar (18.51 KB, 下载次数: 19)

		自动登录	找回密码
密码			注册

如何用VBA实现数据透视表

相关帖子

评分