在两个特定工作表之间插入一个工作表

我创build了一个Excelmacros,允许用户插入一个新的客户端,并基于客户端名称创build一个工作表。 Sheets("Template").Copy After:=Sheets("Template") Sheets("Template (2)").Visible = True Sheets("Template (2)").Name = ClientAbbrev

所以这样做是创build一个隐藏的模板表副本,并创build一个以客户端缩写命名的新标签。 这个新的“入口”通常插入在两个“书籍结束” – 模板和模板结束之间。 所以新插入的标签将会在这里:模板,新标签在这里,模板结束。

现在,我已经隐藏了模板和模板结束,当我插入新客户端,而不是像上面显示,它看起来像这样:模板,模板结束,新的选项卡在这里。

这是一个问题,因为我有一个求和数组,它将“开始”和“结束”选项卡之间的所有数据都取出,现在似乎不工作,除非“书尾”选项卡未被隐藏。 任何人都可以阐明这一点,或告诉我如何编写一个macros来插入这两个标签之间的选项卡?

谢谢!

尝试这个:

 Option Explicit Public Sub addNewSheet() Dim t As Worksheet, ws As Worksheet Set t = ThisWorkbook.Worksheets("Template") t.Copy After:=t Set ws = ThisWorkbook.Worksheets(t.Index + 1) With ws .Visible = True .Name = "New client" End With End Sub