VBA根据一个excel表格中的单元格对多个工作表进行重命名，并根据excel工作表对excel单元格进行双向重命名。
VBA根据一个excel表格中的单元格对多个工作表进行重命名，并根据excel工作表对excel单元格进行双向重命名。
提问于 2016-08-24 03:17:32
非常感谢你阅读这篇文章，并花时间回答我。
对先前问题和答案的搜索显示了每次根据每个工作表上的内容重命名单个工作表(或多个工作表)的答案(即，根据“B1”中记录的名称重命名工作表)。我在找一些不同的东西。
我使用VBA的唯一经验是“复制粘贴命令”，所以如果你在回答中给出一些关于每一轮编程工作的小信息，我将非常感激:)。
我希望使用一个特定的excel工作表，我们称其为“摘要”，这样在该excel工作表上修改名称将直接修改每个excel工作表的名称(它们已经创建)，反之亦然，修改每个工作表的excel名称将修改excel工作表“摘要”的内容。
例如:在Excel表格中，“摘要”单元格A5到A35都会包含信息，比如"1“、"2”、"3“等等，直到"30”为止。
运行宏会使汇总后的图纸(“图纸1”图纸2“"sheet3”直到“图纸30")自动重命名为"1”、"2“、"3”等。
同样，将工作表"3“重命名为"test sheet”会自动将单元格"A7“的内容从"3”更改为"test sheet“。
您的帮助将不胜感激。
谢谢并致以问候，
约翰森
回答 1
Stack Overflow用户
发布于 2016-08-24 03:23:32
尝试像下面的代码一样..
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/39109096
复制相关文章
相似问题
腾讯云开发者
