excel - 在宏中查找excel表的最后一行和最后一列

Question

我正在用 excel 编写一个宏来在一个工作簿中添加数据透视图。我正在尝试在另一个工作簿上运行该宏。变量 ACTST 和 ActWB 正在获取正确的值。但是 LastRow 和 LastCol 变量的值为 0。谁能告诉我哪里错了？

ACTST = ActiveSheet.Name
ActWB = ActiveWorkbook.Name

'Insert a New Blank Worksheet
 On Error Resume Next
 Set DSheet = Worksheets("Sheet1")
 Worksheets("Sheet1").Activate

 'Define Data Range
 LastRow = DSheet.Cells(Rows.Count, 1).End(xlUp).Row
 LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column
 Set PRange = DSheet.Cells(1, 1).Resize(LastRow, LastCol)

标签： excelvba