VBA自动创建数据透视表

最新推荐文章于 2024-08-20 17:45:55 发布

毛绒熊猫猫

最新推荐文章于 2024-08-20 17:45:55 发布

阅读量4k

点赞数 2

分类专栏： EXCEL VBA Microsoft 文章标签： vba excel openoffice wps pivot

本文链接：https://blog.csdn.net/tzx200911911/article/details/119981144

版权

VBA 同时被 3 个专栏收录

6 篇文章 1 订阅

订阅专栏

EXCEL

4 篇文章 0 订阅

订阅专栏

Microsoft

3 篇文章 0 订阅

订阅专栏

Sub 自动识别创建数据透视表()
    Dim rng As Range
    Dim PTC As PivotCache
    Dim PVT As PivotTable
    Dim pdata As String
    ActiveCell.CurrentRegion.Select
    Set rng = Selection
    ActiveWindow.ScrollColumn = 1
    Set PTC = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rng, Version:=xlPivotTableVersion15)
    Sheets.Add
    pdata = ActiveSheet.Name & "!R3C1"
    Set PVT = PTC.CreatePivotTable(TableDestination:=pdata, TableName:="数据透视表", DefaultVersion:=xlPivotTableVersion15)
    Range("A3").Activate
End Sub

按钮封装版下载地址：

https://download.csdn.net/download/tzx200911911/21713914?spm=1001.2014.3001.5503

参考文献：

【VBA研究】用VBA创建数据透视表

VBA创建数据透视表备用连接：[转载]VBA创建数据透视表