用EXCEL VBA写了枢纽分析 想把资料区域定义为全部资料
可是都会出现错误...

程式码为

Set Pvio1 = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C1:R21C7").CreatePivotTable(TableDestination:="", TableName:= _
        "枢纽分析表1", DefaultVersion:= ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

下面是引用 ichol 于 2010-08-23 23:38 发表的 EXCEL VBA枢纽分析问题:
用EXCEL VBA写了枢纽分析 想把资料区域定义为全部资料
可是都会出现错误...
程式码为
Set Pvio1 = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C1:R21C7").CreatePivotTable(TableDestination:="", TableName:= _
.......

因为你的区域是被录制出来的，所以想要突破这点就别录了

从 A1 栏位，使用End 函数，End(往下找)，取得最后一列有资料的列号
程式如下
复制程式

下面是引用 年轻战士 于 2010-08-24 13:43 发表的 :
 

因为你的区域是被录制出来的，所以想要突破这点就别录了

我认为录制功能很强大也很方便，只要懂得利用还是闲来没事就录制一些巨集研究吧！
有些功能录制后稍作修改即可使用，何乐而不为。
并不是录制出来的就没办法突破，多操作多了解它录制出来的程式，一定会找到很多可以学习的内容。

我的个人看法，无意引战！