[求助]数据透视表最后一行怎么定义

episode9

[求助]数据透视表最后一行怎么定义

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        " R1C1:R?C21", Version:=xlPivotTableVersion12).CreatePivotTable
        TableDestination:="R2C23", TableName:="数据透视表1", DefaultVersion:= _
        xlPivotTableVersion12

R? 最后一行没固定,即到al列最后一行,该如何定义呢,表名为activesheet,请各位出手指点.

伊娜丝

dim finalrow as long

dim prange as range

finalrow = activesheet.Cells(65536,1).End(xlUp).Row

set prange = activesheet.cells(1,1).Resize(finalrow,35)

这是我从一本书上看的代码，也许对你的问题有帮助．它解决的是选中可以变大变小即动态变化的数据清单，据书上说，先选中ＥＸＣＬＥ最后一行，即６５５３６行第一列的单元格，然后用ＥＮＤ（ＸＬＵＰ）来完成选中数据清单的最后一行的单元格，这样ＰＲＡＮＧＥ就可以选中动态变化的数据清单了，ＰＲＡＮＧＥ是一个变量，是ＲＡＮＧＥ变量．３５是你问题中所说的ＡＩ列，粗粗计算的．