excel中如何快速创建31个工作表,表名1、2、3、4、5............31

2023-12-26 20:12:33
有2个网友回答
网友(1):

alt+F11

右键插入模块

粘贴以下代码

Sub 新建工作表()

Application.ScreenUpdating = False

For i = 1 To 31

Sheets.Add(Sheets(i)).Name = i

Next

Application.ScreenUpdating = True

End Sub

点击绿色箭头箭头执行

网友(2):

这个要写VBA代码 就很快了