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