批量生成工作簿

1、新建一个Excel表格，输入需要新建的各工作簿名称，如图所示，慢慢来，不要心急。

2、alt+f11快捷键，或者【开发工具】-【visual basic】-【插入】-【模块】见到如下界面；如果电脑里没看到【开发工具】选项卡，请参考其他百度经验。

3、 在VBE界面中输入以下代码：Sub newbooks()    Dim i&, p$, temp$    On Error Resume Next    Application.ScreenUpdating = False    p = ThisWorkbook.Path & "\"    For i = 2 To Cells(Rows.Count, 1).End(3).Row        temp = Cells(i, 1) & ".xlsx"        With Workbooks.Add            .SaveAs p & temp            .Close False        End With    Next    Application.ScreenUpdating = TrueEnd Sub 

4、然后选择【运行】，如图所示，进行操作，你可看到电脑运行的窗口，快慢就看你电脑的配置了。

5、即可查看到你所完成的新建的工作簿，记住是在你新建的（指定工作簿名称）表的同一个文件夹下：我的电脑是显示在电脑桌面的！