Question

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

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

使用工作表变量：

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

VBA：重命名活动工作表

1 个答案: