excel VB录制宏做透视表想把sheet1!想替换成当前工作表怎么样改
发布网友
发布时间：2022-04-23 05:53
共1个回答
热心网友
时间：2023-10-04 09:54
试试改成这样，因为是新工作表建透视表，所以必须在还没建透视表时把当前工作表保存一个名字下来
mysht = ActiveSheet.NameWith Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
mysht & "!R1C2:R65536C21", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:=ActiveSheet.Range("a4"), TableName:="数据透视表1", DefaultVersion:= _
xlPivotTableVersion10
End With
With ActiveSheet.PivotTables("数据透视表1").PivotFields("揽收员")
.Orientation = xlRowField
.Position = 1
End With
