用excel VBA实现批量筛选打印表格

今天说一个excel最常用的操作，筛选打印表格。举个例子，根据姓名打印每个学生的成绩正常的操作步骤是：1、用excel打开表格，点击数据筛选，在姓名字段选择名字打印

1492589572494349.jpg

2、根据不同姓名重复上面的筛选打印步骤。
对于上面的操作步骤，在姓名数量不多的情况下，是简洁快速的。如果学生数量达到成千上百，再用这种手工方式来筛选打印很费时费力。
这里介绍个小技巧，用excel自带的VBA来实现批量筛选打印，可以达到事半功倍的效果。1、用excel打开表格，在G列把所有的姓名填好，注意不要有重复的。

1492589586136772.jpg

2、按alt+F11打开VBA工程界面，在工程界面新建模块，然后在代码区域输入下面的代码：
Sub 批量筛选打印()   Range("G1").Activate  ActiveCell.CurrentRegion.Select  Dim i As Integer  i = Selection.Rows.Count  Range("A1:C1").Select  Selection.AutoFilter  For Each c In Range("G1:G" & i)    Selection.AutoFilter field:=1, Criterial:=c.Value    ActiveSheet.PrintOut    Application.Wait (Now + TimeValue("00:00:01"))  Next End Sub保存后，按F5运行，注意在这之前要先把打印机设置好。用excel实现批量筛选打印，有多种方法，这里介绍了一种用vba代码实现的方法，自由度比较高