如何重命名工作表

Question

如何通过引用其位置来重命名工作表？也就是说，如果我想重命名第二张表，而不使用如下代码：

Sheets("Sheet1").Name = "New Name"

因为这会在我的代码添加工作表时产生问题，并且如果在过去工作簿中删除了工作表，则它不一定对应于下​​一个数字。

示例：如果我删除Sheet1然后创建一个新的Sheet1，它将是Sheet2，但为了不必每次使用它时都要更改宏我只想引用选项卡的位置。并说出firstSheet，重命名为“New Name”。

这可能还是有解决方法？

Answer 1

Sheets集合由索引（位置）或名称索引，两者都是唯一的。对于新的工作簿，这些应该是相同的：

MsgBox Sheets("Sheet1").Name
MsgBox Sheets(1).Name

所以，对于你的问题：

  

如何通过引用它的位置来重命名工作表？

使用工作表的索引。

Sheets(_index_).Name = "New Name"