excel如何批量重命名工作表
发布网友
发布时间：2022-04-26 12:01
共2个回答
热心网友
时间：2022-06-28 03:54
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
每次会要求你输入一月份。
热心网友
时间：2022-06-28 03:54
在宏编写中修改sheet的name即可实现
