Excel 正在尝试创建透视表，运行时错误91

尝试将一个范围命名为“PK”，并使用该范围创建透视表。当我运行这段代码时，我得到运行时错误91。此位前面的代码从模板创建新工作簿，因此所有选项卡都是预设的（如果有意义的话）

创建用于透视表的动态范围

Dim pkrange作为范围
最后一排一样长
暗淡如长
将工作表设置为工作表
暗淡的startcell As范围
将pk设置为字符串
设置pksheet=ActiveWorkbook.Worksheets（“上次PK数据”）
设置startcell=pksheet.Range（“A1”）
LastRow=pksheet.Cells（pksheet.Rows.Count，startcell.Column）.End（xlUp）.Row
Lastcol=pksheet.Cells（startcell.Row，pksheet.Columns.Count）。End（xlToLeft）。Column
设置pkrange=Range（startcell，pksheet.Cells（LastRow，Lastcol））
pk=“pk”
pksheet.Names.Add Name:=pk，referesto:=pkrange

设置数据透视表

Dim PKpvtable作为数据透视表
将PKpvCache设置为PivotCache
Dim PKstartPvt作为字符串
Dim PKsrcData作为字符串
PKsrcData=ActiveWorkbook.Worksheets（“上次PK数据”）.Range（“PK”）.Address（ReferenceStyle:=xlR1C1）
PKstartPvt=ActiveWorkbook.Worksheets（“透视表”）.Range（“A1”）.Address（ReferenceStyle:=xlR1C1）
设置PKpvCache=ActiveWorkbook.PivotCaches.Create（xlDatabase，PKsrcData）
设置PKpvtable=PKpvCache.CreatePivotTable（PKstartPvt，“数据透视表1”）

哪行抛出错误？LastRow=pksheet.Cells（pksheet.Rows.Count，startcell.Column）。End（xlUp）。row是否包含所有代码？您是否对该行之前的

pksheet

或

startcell

执行了任何操作（例如，删除单元格）？完全没有。之前的代码没有使用任何这些变量。我无法重新设置错误。可能会添加一个

Debug.Print pksheet.Name

或

Debug.Print startcell.Address

并查看哪个会引发错误。