Question

VBA录制宏 同样的表格出现438错误

Sub Macro2()
'
' Macro2 Macro
' 宏由 macbookpro 录制，时间: 2017/11/18
'

'
Columns("A:H").Select
ActiveWindow.ScrollRow = 1
With ActiveWorkbook
.PivotCaches.Add SourceType:=xlDatabase, SourceData:="=汇总!C1:C8"
.PivotCache.CreatePivotTable TableDestination:="=汇总!C10:C23", TableName:="数据透视表5", DefaultVersion:=1
End With
Range("J1").Activate
With ActiveSheet.PivotTable.PivotField
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTable.PivotField
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTable.AddDataField Field:=ActiveSheet.PivotTable.PivotField
Columns("J:K").Select
Selection.Copy
Range("L1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
With Selection
.EntireColumn.Hidden = False
.ColumnWidth = 17.200001
End With
Range("L3:M103").Select
ActiveWindow.ScrollRow = 2

若以下回答无法解决问题，邀请你更新回答

Answer 1

你录制的时间是“数据透视表5”，再运行宏时就应该是“数据透视表6”了，你还用5当然有问题了