命名插入的工作表像另一个工作表

我想在工作簿中添加一张新工作表，并将其命名为与活动工作表完全相同的名称，但后跟一个' 。 所以，如果活动工作表的名称是0908那么我想要新插入的工作表的名称是0908' 。

我search了一下，我看到了如何命名工作表的引用其他地方，但只为其他工作表内的值。

这是在其他工作表中引用的代码。

 Worksheets.add.Name = Worksheets("MENU").Range("B2").value 

Answer 1

像这样的东西应该工作。

 Worksheets.add.Name = ActiveSheet.Name & "xxx" 

您只需要读取活动工作表的名称并向其中添加一个string即可。

但是在工作表末尾的撇号不起作用！
只有在后面跟着另一个字符时，才允许这样做：

 Worksheets.add.Name = ActiveSheet.Name & "'s" 

Answer 2

您可能正在寻找这样的代码。

 Dim WsName As String Dim Ws As Worksheet WsName = ActiveSheet.Name Set Ws = Worksheets.Add(After:=Worksheet(Worksheets.Count)) Ws.Name = WsName & "1" 

Answer 3

因为你必须在“”之后有一个字符，你可以使用

 Worksheets.Add.Name = ActiveSheet.Name & "' " 

在'之后加上空格会产生你正在寻找的效果。