如何添加多个工作表并使用单元格引用命名它们？

Question

我正在我的 PERSONAL.xlsb 工作簿中创建一个宏，以便可以在我的所有工作簿中使用它。

宏从工作簿 1 中获取信息，将其复制到工作簿 2 中，然后从工作簿 2 中获取新信息并将其放入我在工作簿 1 中创建的新工作表中。

我被困在要向工作簿中添加多张工作表的部分。

我认为这很简单，但我尝试了多种方法将工作表添加到我的工作簿，但我一直收到错误消息。我试图创建一个只添加工作表的简单宏，但我一直收到这一行代码的错误。

我需要做什么才能将工作表添加到我的工作簿？

' 尝试 1：不起作用 - 运行时错误 1004 ActiveWorkbook.Sheets.Add 之后：="Sheet23"

' 尝试 2：不起作用 - 运行时错误 1004 Sheets.Add After:="Sheet23"

'尝试 3：不起作用 - 运行时错误 1004 Sheets.Add After:=Sheet23

'尝试 4：不起作用 - 运行时错误 1004 Worksheets.Add after:=Sheet23

所需的输出（基本）：我想在我的工作簿中的第 23 页之后添加一个新工作表

期望的输出（理想）：我想根据我列表中的条目数在第 23 页之后添加一些工作表。列表中的每个项目从 1 开始编号。每个新工作表都应根据此编号命名。

Answer 1

after 参数需要一个工作表对象而不是字符串，所以你需要

 ActiveWorkbook.Worksheets.add after:=ActiveWorkbook.Worksheets("Sheet23")

但是你也可以这样使用索引号

 Dim i as integer
 i = ActiveWorkbook.Worksheets("Sheet23").Index
 ActiveWorkbook.Worksheets.Add after:= ActiveWorkbook.Worksheets(i)

如果我们假设您的列表（为了论证）在 sheet1.range("a1") 向下，那么我们可以写

  Sub MakeSheetsFromList()
  Dim r As Range
  Set r = Worksheets("sheet1").Range("a1")
  Dim i As Integer
  i = Worksheets("sheet23").Index
  Dim ws As Worksheet
  Do
    Set ws = Worksheets.Add(after:=Worksheets(i))
    ws.Name = r.Text
    Set r = r.Offset(1, 0)
    i = i + 1
 Loop Until r = ""
 End Sub