你确定
Set sel = wb1.Range(wb1.Cells(1, 1), wb1.Cells(row, 67))
前的单引号去掉了吗？
你确定sh1定义了吗？
我下面这段可以的：
Sub xx()
Row = Range("a1").End(xlDown).Row
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ Range("A1:B7"), Version:=xlPivotTableVersion12).CreatePivotTable _ TableDestination:=Cells(1, 4), TableName:="????????±í1", DefaultVersion:= _ xlPivotTableVersion12
End Sub
我在A1:B7建立一数据源。
