1、这里举例用成绩单，这个方法在很多地方都能用到。如下图，为成绩单，根据成绩单的样式来编写VBA
2、然后，做一个成绩单的模板，做成什么样子都可以，留好空位等待填写。
3、然后，使用Excel开发工具——VBA编辑。
4、新建模块，将代码复制到模块编辑器中。Sub 批量导出工作簿()r = 2Do While Sheets烫喇霰嘴("Sheet1").Cells(r, "a") <> ""Sheets("Sheet2").Cells(2, "b") = Sheets("Sheet1").Cells(r, "a")Sheets("Sheet2").Cells(2, "d") = Sheets("Sheet1").Cells(r, "b")Sheets("Sheet2").Cells(4, "b") = Sheets("Sheet1").Cells(r, "c")Sheets("Sheet2").Cells(4, "d") = Sheets("Sheet1").Cells(r, "d")Sheets("Sheet2").CopySet wb = ActiveWorkbookwb.SaveAs "C:\Users\Administrator\Desktop\新建文件夹 (3)\" & Sheets("Sheet2").Cells(2, "b") & ".xlsx"wb.Closer = r + 1LoopEnd Sub
5、点击运行，开始运行该段VBA。结果如下，成绩单就自动生成了。
6、打开生成的成绩单，如下图。该段代码使用面广，如有疑问。请留言。
