excel中如何快速创建31个工作表，表名1、2、3、4、5............31
2个回答
展开全部
alt+F11
右键插入模块
粘贴以下代码
Sub 新建工作表()
Application.ScreenUpdating = False
For i = 1 To 31
Sheets.Add(Sheets(i)).Name = i
Next
Application.ScreenUpdating = True
End Sub
点击绿色箭头箭头执行
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
这个要写VBA代码 就很快了
追问
这个咋个写哦
追答
先按住alt+F11 新建一个模块 把这段代码复制进去 再运行 就可以啦
Sub add_sheet()
Dim i As Integer, m As Integer, n As Integer
n = InputBox("输入你需要插入的工作表数量：")
For i = 1 To n
m = n - i + 1
Sheets.Add.Name = m
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
