VBA根据一个Excel工作表中的单元格重命名多个工作表，并相互重命名，根据excel工作表重命名excel单元格-Java 学习之路

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

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

我对VBA的唯一体验是“复制粘贴命令”，所以如果你给出了关于你的答案中每个编程做了什么的一小段信息，我将非常感激 . :)

我希望使用特定的Excel工作表，让我们称之为“摘要”，以便修改该Excel工作表上的名称直接修改每个Excel工作表的名称（它们已经创建），反之亦然，修改每个工作表的名称工作表将修改Excel工作表“摘要”的内容 .

例如：在Excel表格“摘要”单元格A5到A35中每个都包含信息，比如“1”，“2”“3”等等，直到“30” .

运行宏将使得摘要后的纸张（“纸张1”纸张2“”纸张3“直到”纸张30“）自动重命名为”1“，”2“，”3“等等 .

同样，将表单“3”重命名为“测试表”将自动将单元格“A7”的内容从“3”更改为“测试表” .

非常感谢您的帮助 .

谢谢你，问候，

约翰森

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

回复于 2024-04-17T07:03:03+08:00

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

1 回答

相关问题