EXCEL VBA 数据透视表 怎么对一个PivotTable对象重新设置数据源

2025-12-05 22:04:27
推荐回答(2个)
回答1:

事先设定好范围 这个范围的列和行通过参数来判断
Set DataRng = Range("A1:D" & zuidazhi)

Set ptcache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=DataRng)
Sheets.Add
Sheets("Sheet1").Select
Set pt = ptcache.CreatePivotTable(tabledestination:=Sheets("Sheet1").Range("b1"), TableName:="pivottable1")
With ActiveSheet.PivotTables("pivottable1").PivotFields("采样时间")
.Orientation = xlRowField
.Position = 1
End With

回答2:

2000人的群,名称是VB人生 号148317126,去那里问问