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

Question

我想在工作簿中添加一个新工作表，并将其命名为与活动工作表完全相同但后面加'。 因此，如果活动工作表的名称为0908，那么我希望新插入的工作表的名称为0908'。

我搜索了一下，我看到了如何命名一张带有其他地方引用的工作表，但仅限于其他工作表中的值。

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

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

Answer 1

这样的事情应该有用。

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

您只需要读取活动工作表的名称并为其附加一个字符串。

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

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

因为你必须在＆＃34;之后有一个角色。 ＆＃39; ＆＃34;，您可以使用

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

在＆＃39;之后添加空格。会产生你想要的效果。