VBA根據一個excel工作表中的單元格重命名多個工作表，反之，根據excel工作表重命名excel單元格

Question

非常感謝您閱讀本文並抽出寶貴時間回答我。

通過搜索先前的問題和答案，可以找到每次根據每個工作表上的內容重命名單個工作表（或多個）的答案（即根據“ B1”中的名稱重命名工作表）。 我在尋找一些不同的東西。

我對VBA的唯一經驗是“復制粘貼命令”，因此，如果您給出了有關每一輪編程在答案中的作用的小片段信息，則將不勝感激:)。

希望使用特定的excel工作表，我們將其稱為“摘要”，以便修改該excel工作表上的名稱可以直接修改每個excel工作表（它們已經創建）的名稱，反之亦然，可以修改每個excel工作表的名稱工作表將修改excel工作表“摘要”的內容。

例如：在Excel工作表的“摘要”單元格A5至A35中，每個單元格都包含信息，例如“ 1”，“ 2”，“ 3”，依此類推，直到“ 30”。

運行宏將使摘要后的工作表（“工作表1”工作表2”“工作表3”，直到“工作表30”）自動重命名為“ 1”，“ 2”，“ 3”，依此類推。

同樣，將工作表“ 3”重命名為“測試表”會自動將單元格“ A7”的內容從“ 3”更改為“測試表”。

您的幫助將不勝感激。

謝謝你，謝謝

約翰森

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