软件:EXCEL
版本:2007
枢纽命名 = Format(Now, "yyyymmddhhmmss")
Cells(Rows.Count, "A").End(xlUp).Select
列 = Selection.Row
Cells(1, Columns.Count).End(xlToLeft).Select
栏 = ActiveCell.Column
Cells(1, 栏).Offset(0, 2).Select
目的地 = Selection.Column
Range([A1], Cells(列, 栏)).Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Range([A1], Cells(列, 栏)), Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:=Cells(1, 目的地), TableName:= _
MM, DefaultVersion:=xlPivotTableVersion12
因为常需要用到枢纽，以上是我录制的宏，平常都可用
不知道为什么，当资料超过65536列后，会出现
执行阶段错误'13'，型态不符合
的错误
请指教，谢谢

Range([A1], Cells(列, 栏))后面加上 .address 试试

请问为什么需要这样呢？

http://goo.gl/xgcNfO sourcedata资料型态为字串，故还是储存格参照字串方式另有一个疑问就是我用2003,2007,2010,2013四种版本来录制sourcedata录到的都是以r1c1参照字串方式，而非原文range型态故还是以储存格参照字串方式会比较好

了解了 谢谢S大你是对的 是我自己改成range 原本是R1C1没错