根据查找表重命名表

我是新来的，所以原谅我，如果我没有正确发布。

我有一个Excel文件，其中包含各种表格，其中一些被命名为V1，V2，…，最大可能为V15 。

我在“工作表名称”单元格中有一个表格B2:C16 ：
B列包含当前表格名称V1-V15 。
C列包含新的图纸名称/标签。

你是否能够提供一些VBA代码，以便能够将当前称为V1的表格重新命名为最大值为V15的新值？

我发现很多基于列表命名的东西，但不是以查找方式。

 Sub RenSheets() Dim i As Integer For i = 2 To Worksheets.Count Sheets(i).Name = Sheets("Sheet names").Range("C" & 2 + i) Next i End Sub 

非常感谢

Answer 1

这是我如何开始看。 如果循环遍历表并select工作表（可以通过修改set rng语句来更改表的位置和大小），那么不必循环遍历工作表，然后尝试在表中find答案。在该范围内详细说明的工作表。

 Sub RenSheets() Dim rng as Range Dim c set rng = ThisWorkbook.Sheets("Sheet names").Range("B2:B16") For each c in rng.cells ThisWorkbook.Sheets(c.value).Name = c.offset(0,1).value Next c End Sub 

Answer 2

尽量不要使用Sheets(i).Name …如果表单顺序改变，您可能会遇到麻烦

 Sub RenSheets() Dim i As Integer For i = 2 To 16 'Your Range = B2:C16 Sheets(Sheets("Sheet names").Cells(i, 2)).Name = _ 'sheet to rename Sheets("Sheet names").Cells(i, 3) 'new sheetname Next End Sub