求一个能批量修改工作表名称的代码。

pengqidong · 发表于 2023-5-30 13:25

请求大家求一个能批量修改工作表名称的代码。网络上找到的好似版本不同而运行不了

，只有请教各位了

盼盼198310 · 发表于 2023-5-30 13:29

..........

liulang0808 · 发表于 2023-5-30 13:30

注意表名是数值的部分

笨鸟飞不高 · 发表于 2023-5-30 13:37

求助11.zip (16.94 KB, 下载次数: 5)

pengqidong · 发表于 2023-5-30 13:38

盼盼198310 发表于 2023-5-30 13:29
..........

谢谢，但好像没能提取旧表名称一项

pengqidong · 发表于 2023-5-30 13:38

liulang0808 发表于 2023-5-30 13:30
注意表名是数值的部分

版主能发下代码复制吗

liujing_hotwind · 发表于 2023-5-30 14:03

pengqidong 发表于 2023-5-30 13:38
版主能发下代码复制吗

Sub test()
For i = 2 To Sheets.Count
      Cells(i, 1) = i - 1
      Cells(i, 2) = Sheets(i).Name
      Sheets(i).Name = Cells(i, 3)
Next i
End Sub

liujing_hotwind · 发表于 2023-5-30 14:03

Sub test()
For i = 2 To Sheets.Count
      Cells(i, 1) = i - 1
      Cells(i, 2) = Sheets(i).Name
      Sheets(i).Name = Cells(i, 3)
Next i
End Sub

liulang0808 · 发表于 2023-5-30 15:15

pengqidong 发表于 2023-5-30 13:38
谢谢，但好像没能提取旧表名称一项

需要旧表名与新表名对应关系才能替换吧？
仅仅提取旧表名，按照什么逻辑对应新表名呢？

ykcbf1100 · 发表于 2023-5-30 20:23

参与一下。

		自动登录	找回密码
密码			免费注册

[求助] 求一个能批量修改工作表名称的代码。