VBA基于Excel工作表中的单元格重命名多个工作表，并根据Excel工作表重命名Excel单元格

非常感谢您阅读本文并花时间回答我。VBA基于Excel工作表中的单元格重命名多个工作表，并根据Excel工作表重命名Excel单元格

根据之前的问题和答案进行搜索，揭示了每次重新命名单个工作表（或多个）时每个工作表上的内容（即，基于“B1”中的名称重命名工作表）的答案。我正在寻找有点不同的东西。

我唯一的使用VBA的经验是“复制粘贴命令”，所以如果你给出了关于在你的回答中每次编程都做什么的信息的小片段，那么将非常感激。

我期待使用特定的Excel工作表，我们将其称为“摘要”，以便修改该Excel工作表上的名称直接修改每个Excel工作表的名称（它们已经创建），反之亦然，修改每个工作表的excel名称将修改Excel表格“摘要”的内容。例如：在Excel工作表的“汇总”单元格A5至A35中，每个单元格都包含信息，比如“1”，“2”，“3”等，直到“30”。

运行宏将使汇总后的工作表（“工作表1”工作表2“”工作表3“，直到”工作表30“）自动更名为”1“，”2“，”3“等。

同样地，重命名片“3”到“测试片”将自动地改变细胞“A7”的从“3”至“试验板”的内容。

你的帮助，将非常赞赏。

谢谢你，问候，

Johanssen

来源

2016-08-23 John Chan

有没有尝试过任何代码.... – HA560

欢迎StackOverflow上。请注意，这不是免费的代码写入服务。然而，我们渴望帮助其他程序员（和有志之士）编写他们自己的代码。请阅读[我如何提出一个好问题]（http://stackoverflow.com/help/how-to-ask）上的帮助主题。您可能还想[参观]（http://stackoverflow.com/tour）并在此过程中获得徽章。之后，请用您迄今编写的VBA代码更新您的问题，以完成您希望实现的任务。 – Ralph

尝试像下面代码..

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

来源

2016-08-23 19:23:31 HA560

VBA基于Excel工作表中的单元格重命名多个工作表，并根据Excel工作表重命名Excel单元格

回答

相关问题