Question

非常感谢你阅读这篇文章并花时间回答我。

搜索先前的问题和答案显示每次根据每个工作表上的内容重命名单个工作表（或倍数）的答案（即根据＆＃34; B1＆＃34;中记载的名称重命名工作表; ）。我正在寻找一些有点不同的东西。

我对VBA的唯一体验包括＆＃34;复制粘贴命令＆＃34;如果你在答案中给出了关于每一节编程的内容的一小段信息，那么我将非常感激。）

我希望使用特定的Excel工作表，让我们称之为＆＃34;摘要＆＃34;因此，修改该Excel工作表上的名称会直接修改每个Excel工作表的名称（它们已经创建），反之亦然，修改每个工作表的Excel名称将修改Excel工作表的内容＆＃34;总结＆＃34;

Ex：在Excel工作表＆＃34;摘要＆＃34;单元格A5到A35每个都包含信息，例如＆＃34; 1＆＃34;，＆＃34; 2＆＃34; ＆＃34; 3＆＃34;依此类推，直到＆＃34; 30＆＃34;。

运行宏将启用摘要后的工作表（＆＃34;工作表1＆＃34;工作表2＆＃34;＆＃34;工作表3＆＃34;直到＆＃34;工作表30＆＃34;）自动重命名＆＃34; 1＆＃34;，＆＃34; 2＆＃34;，＆＃34; 3＆＃34;等等。

同样，重命名表＆＃34; 3＆＃34;进入＆＃34;测试表＆＃34;会自动改变单元格的内容＆＃34; A7＆＃34;来自＆＃34; 3＆＃34;到＆＃34;测试表＆＃34;。

非常感谢您的帮助。

谢谢你，问候，

约翰森

Answer 1

尝试以下代码..

Sub test()
     On Error Resume Next
     For Each oldName In ThisWorkbook.Workseets("Sheet1").Range("C1:C133")
         ThisWorkbook.Worksheets(oldName.Value).Name = oldName.Offset(0, -1).Value
     Next
End Sub

VBA根据一个Excel工作表中的单元格重命名多个工作表，并相互重命名，根据excel工作表重命名excel单元格

1 个答案: