我试图将我的固定范围(A1:G4193)更改为动态,因为需要每天输入新数据。在数据透视表中创建动态范围
这里是我的代码:
Sub Create_Pivot()
Dim sht As Worksheet
Dim pvtCache As PivotCache
Dim pvt As PivotTable
Dim StartPvt As String
Dim SrcData As String
Dim pf As PivotField
SrcData = ActiveSheet.Name & "!" & Range("A1:G4193").Address(ReferenceStyle:=xlR1C1)
Set sht = Sheets.Add
StartPvt = sht.Name & "!" & sht.Range("A1").Address(ReferenceStyle:=xlR1C1)
Set pvtCache = ActiveWorkbook.PivotCaches.Create(_
SourceType:=xlDatabase, _
SourceData:=SrcData)
Set pvt = pvtCache.CreatePivotTable(_
TableDestination:=StartPvt, _
TableName:="PivotTable1")
我非常感谢所有帮助。谢谢!
列数是否改变,或者只是行数?看看[这个简单的代码](http://stackoverflow.com/questions/11169445/error-in-finding-last-used-cell-in-vba)来确定最后一行.. – OldUgly