Question

excel如何批量重命名工作表

我的工作簿内有31个工作表不定 分别命为 1月1日 1月2日 .....1月31日 怎样能重命名 工作表 由 1月1日 变成 2月1日 类推 到 2月31日 不影响原表的内容麻烦各位提供下这样的宏.谢谢!!!

Answer 1

Sub test()
Dim i As Byte
For i = 1 To ThisWorkbook.Sheets.Count
Sheets(i).Name = 2 & "�0�8�0�0" & i & "�0�6�0�9"
Next i
End Sub
把2改为你要的月份就可以了。也可以这样
Sub test()
Dim i, m As Byte
m = InputBox("请输入月份", "Hello")
For i = 1 To ThisWorkbook.Sheets.Count
Sheets(i).Name = m & "月" & i & "日"
Next i
End Sub
每次会要求你输入一月份。

Answer 2

在宏编写中修改sheet的name即可实现

Answer 3

仪表图