透视表数据源行数获取问题

lili499711

Set ptArea4 = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C1:R45469C15").CreatePivotTable(TableDestination:="")

上面是透视表建立的一段代码，我想把SourceData改为根据非空数据获得行数，例如[a65536].end(x1Up).row，但是试了几次都没有成功，请高手帮忙看看吧，谢谢
这就是其中的代码，可能我没有表述清楚，我想这样改：
dim r as integer
r= sheet1.[a65536].end(x1Up).row
Set ptArea4 = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C1:R&rC15").CreatePivotTable(TableDestination:="")
本人初学，还请各位多多帮忙



终于找到要实现的代码了，与大家共同分享
SourceData:= range("A1").currentregion.address

[ 本帖最后由 lili499711 于 2009-11-12 22:10 编辑 ]

亡者天下

楼主最好上传一个附件上来，有助你的问题的解决