怎样批量更改一个excel表格中的工作表名称，需要更改的名字是无规则的！ 求解!

Question

如题所述

Answer 1

假设一共24张表格，同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
Dim xStr As String
xStr = "U9C001U9C011U9D013U9D023U9D025U9DT02U9E001U9E002U9E003U9E004U9F006U9F201U9F202U9H001U9H008U9HB02U9HB05U9HB08U9J101U9J102U9J103U9K001U9KC01U9L004"
Dim i As Integer
For i = 1 To 24
Sheets(i).Name = Mid(xStr, i * 6 - 5, 6)
Next i
End Sub

在此界面直接按F5运行此宏，完成。

Answer 2

如何的无规则啊...

Answer 3

一个一个的改吧