数据透视表中如何快速增加多个栏位同时使其变成求和项

一飒 · 发表于 2019-12-9 11:33

请大神帮忙看看，有两个需求
1.如图，原始数据中有100个栏位，手动增加需要100次，能不能快速增加到CA0
2.增加完后，默认为计数项，能否变成求和项，最好用VBA 给予指导
以上，谢谢大神

一飒 · 发表于 2019-12-9 11:59

前排求解

一飒 · 发表于 2019-12-9 12:58

三楼打卡等一个大侠

一飒 · 发表于 2019-12-10 14:39

手动调好了

魂断蓝桥 · 发表于 2019-12-10 16:12

本帖最后由魂断蓝桥于 2019-12-10 16:18 编辑

Sub CreatePivotTable()
Dim pvc As PivotCache
Dim pvt As PivotTable, i%, s$, r&
Application.ScreenUpdating = False
Cells.Clear
Set pvc = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:=Sheet2.[a1:db65535])
Set pvt = pvc.CreatePivotTable(TableDestination:=Range("a3"), TableName:="数据透视表1")
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("数据透视表1").PivotFields("Stage")
      .Orientation = xlRowField
      .Position = 1
End With
With ActiveSheet.PivotTables("数据透视表1")
      For i = 6 To 106
         s = Sheet2.Cells(1, i)
         .AddDataField ActiveSheet.PivotTables("数据透视表1").PivotFields(s), , xlSum
      Next
End With
Application.ScreenUpdating = True
End Sub

一飒 · 发表于 2019-12-11 08:34

魂断蓝桥发表于 2019-12-10 16:12
Sub CreatePivotTable()
Dim pvc As PivotCache
Dim pvt As PivotTable, i%, s$, r&

我贴进去了不过还是用不了大神可否在看看

魂断蓝桥 · 发表于 2019-12-11 08:41

求助.rar (74 KB, 下载次数: 13)

一飒 · 发表于 2019-12-11 10:34

魂断蓝桥发表于 2019-12-11 08:41

非常感谢

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

[求助] 数据透视表中 如何快速增加多个栏位 同时使其变成求和项

[求助] 数据透视表中如何快速增加多个栏位同时使其变成求和项