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

今天说一个excel最常用的操作，筛选打印表格。

举个例子，根据姓名打印每个学生的成绩

正常的操作步骤是：

1、用excel打开表格，点击数据筛选，在姓名字段选择名字打印

2、根据不同姓名重复上面的筛选打印步骤。

对于上面的操作步骤，在姓名数量不多的情况下，是简洁快速的。如果学生数量达到成千上百，再用这种手工方式来筛选打印很费时费力。

这里介绍个小技巧，用excel自带的VBA来实现批量筛选打印，可以达到事半功倍的效果。

1、用excel打开表格，在G列把所有的姓名填好，注意不要有重复的。

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代码实现的方法，自由度比较高