作者：乔山办公网日期：
返回目录：excel表格制作
Sub 批量知打道印专属()
Dim i As Integer
For i = 4 To Sheet1.Columns(1).Cells(Sheet1.Cells.Count).End(xlUp).Row
Sheets(Sheet1.Cells(i, 1)).PrintOut Copies:=1
Next
End Sub
示例代码如下：
Sub 宏1()
Dim r as Range
For Each r In Sheets("Sheet1").Range("A4").CurrentRegion.Cells
If Trim(r) <> "" Then
Worksheets(r).PrintOut ActivePrinter:="Send To OneNote 2016"
End If
Next r
End Sub
如果道使用默认打回印机答就不需要指定打印机名称为"Send To OneNote 2016"，或者指定为你自己的打印机。
首先，我们要创建一个共同的成绩单。您可以包括学号，姓名，各学术成果，成绩，班级排名，年级排名等数据，作为工作簿第一个工作表，默认名称为“工作表Sheet1”
然后打开第二个工作表名称到Sheet2。制作一个通知样式，文本和格式可定制
这里应该注意，包括分数和细胞（包括语文，数学，英语，物理，总分成绩和班级，年级排名）的排名必须作为一个公式。这些公式的基本格式：
= IF（ISERROR（VLOOKUP（B2，SHEET1 A3：！I50中，X，FALSE）），“”，VLOOKUP（B2，SHEET1 A3：！I50中，X，FALSE）） BR>公式红色字体视情况而定。这个公式的意思是：当定义工作表Sheet1 B2单元格中的工作表时，一个学生的名字，这个单元格的值，以消除学生的名字填在第一个X列的后面。 A3：I50的数据的范围，根据自己的sheet1中的数据范围可以是。在实际使用中，所提出的公式最好e68a84e79fa5e98193337写成以下方式：
= IF（ISERROR（VLOOKUP（$ B $ 2，$ SHEET1 3美元:! $ I $ 50 X，FALSE）），“” ，VLOOKUP（$ B $ 3 SHEET1 $ A $ 2：！$ I $ 50，则X，FALSE））
从前面的公式不同，只在细胞中加在符号$绝对引用符号，所以目的是便于复制，因为绝对参考复制公式到其他单元也不会改变，方便批量生产的印刷。
由于语言分数的列中，从名称为第二列计数，所以x = 2，只要在小区B3，输入“散”，根据下式，D3细胞将返回到他的得分为65种语言，如数学，英语，物理，比分，类级，等级排名的公式，等等。唯一的区别是，X分别为3,4,5,6,7,8。
做一个好以后，你可以在B2单元格里输入不同的学生的姓名，输入一个接一个，由一个打印;最好的办法是，这个为模板，复制几个部分，如50 50学生被复制，把纸多张，然后进入不同的每一个学生的名字，统一完成，然后打印。这样不仅节省纸张，同时也节省了时间和精力。
采用word的邮件合并功能抄
你的图二存为一个excel文件，同时在word里建立一个新文件，画好表格，在邮件中选择“使用现有列表”百，并指向你的EXCEL文件
在自己要填内容的位置插入合并度域，图中方框位置是我已插入的合并域
最后切换“预览结果”，点菜单上的“完成合并”，可以直接打印输出。