如何重命名表

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

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

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

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

这是可能的还是有解决方法？

Answer 1

Sheets集合通过索引（位置）或名称进行索引，两者都是唯一的。 对于新的工作簿，这些结果应该是一样的：

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

所以，对于你的问题：

如何通过引用其位置来重命名表单？

使用工作表的索引 。

 Sheets(_index_).Name = "New Name"