怎样对一个变化的sheet进行数据透视
编号：QA002167
建立日期: 1999年12月5日 最后修改日期：1999年12月5日
所属类别：
dkf:
操作系统：win98
编程工具：vba for excel
问题：怎样对一个变化的sheet进行数据透视？对内部数据sheet1生成数据透视表，使用如下语句：
mystr = "sheet1!R1C1: R25C7"
Set Range1 = wspivot.Range("A4")
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:=mystr, _
TableDestination:=Range1, TableName:="Pivot1"
以上语句调试成功，但因为sheet1中不断更新数据，不能使用mystr = "sheet1!R1C1: R25C7"中固定的25行7列，所以要做如下修改：
With sheet1.UsedRange
lr = .Rows.Count
lc = .Columns.Count
End With
mystr = "sheet1!R1C1: RlrClc"
因为每次重新做数据透视时，要取工作表中全部的数据，所以做以上修改，但是修改后，程序有错。我尝试了各种办法，包括使用range,但均未调试成功。不知怎样才能实现如上的功能？
回答:
将 mystr = "sheet1!R1C1: RlrClc" 改为：
mystr = "sheet1!R1C1: R" & CStr(lr) & "C" & CStr(lc)
主持人注：另外，参考QA002147 "如何选中一段变化的区域"。
此问题由shiyuwei回答。
| |
|
|
| |
|
|
