VBA：重命名活动工作表

我遇到了一个似乎是直接的问题，但无论出于何种原因，在我的代码中给我一个错误信息。 我正在使用macros来创build数据透视表，并且想要重命名为数据透视表创build的工作表。 我唯一的问题是活动工作表不会重命名和错误消息“运行时9：下标超出范围”。 代码如下，错误发生在最后一行：

Sub Macro24() Dim VendorData As String Dim Lastrow As Long Dim PivotSheet As String Sheets("Statement").Select Lastrow = Cells(Rows.Count, "A").End(xlUp).Row Sheets("Statement").Select ActiveWorkbook.Names.Add Name:="VendorData", RefersTo:= _ "=Statement!$A$4:$C$" & Lastrow Sheets.Add PivotSheet = ActiveSheet.Name 

Answer 1

使用工作表variables：

 Dim ws As Worksheet Set ws = Worksheets.Add ws.name = "PivotSheet" pivotsheet = ws.Name