VBA自动创建数据透视表

Sub 自动识别创建数据透视表()Dim rng As RangeDim PTC As PivotCacheDim PVT As PivotTableDim pdata As StringActiveCell.CurrentRegion.SelectSet rng = SelectionActiveWindow.ScrollColumn = 1Set PTC = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rng, Version:=xlPivotTableVersion15)Sheets.Addpdata = ActiveSheet.Name & "!R3C1"Set PVT = PTC.CreatePivotTable(TableDestination:=pdata, TableName:="数据透视表", DefaultVersion:=xlPivotTableVersion15)Range("A3").ActivateEnd Sub

按钮封装版下载地址：

/download/tzx11911/21713914?spm=1001..3001.5503

参考文献：

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

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