EXCEL快速创建100个工作表（二）

1、我们仍然先创建一个空白的EXCEL表格。

3、然后在开发工具中勾选“Visual Basic”进入VBA代码界面。

5、进入VBA界面，我们直接翱务校肢复制如下代码Sub 新建100个工作表() On Error Resume Next Application.ScreenUpdating = False Dim Wh As Excel.Worksheet, i As Integer For i = 1 To 100 Worksheets.Add(, Sheets(Sheets.Count)).Name = "Sheet" & i Next i Application.ScreenUpdating = TrueEnd Sub

7、之后回到EXCEL主界面可以看到已经生成了1000个工作表。

8、如果我们想一直使用这段代码，则添加宏按钮并将工作簿另存为XLSM格式即可。