新知一下
海量新知
5 9 7 5 4 5 2

Excel实战练习——批量打印(答案)

米宏office学堂 | 专注提升职场办公效率 2021/11/23 15:18

我的目标: 让中国的大学生走出校门的那一刻就已经具备这些office技能,让职场人士能高效使用office为其服务。支持我,也为自己加油!

昨天给大家分享的练习题如下:

新知达人, Excel实战练习——批量打印(答案)

如上图,想要筛选商户名称,然后分别把每个商户的数据打印出来?

会写VBA代码在处理这种问题时是非常方便的,要不然我们可能得费老半天功夫一个商户一个商户的去筛选然后打印。

效果如下:

新知达人, Excel实战练习——批量打印(答案)

代码如下:

新知达人, Excel实战练习——批量打印(答案)

Sub 筛选打印()

Dim i%, arr, maxr%

maxr = Range("a1").CurrentRegion.Rows.Count

arr = Range("j2").CurrentRegion

For i = 1 To UBound(arr)

With ActiveSheet

.Range("$A$5:$E$" & maxr).AutoFilter Field:=2, Criteria1:=arr(i, 1)

.PageSetup.PrintArea = "a1:e" & maxr

        .PrintOut

End With

Next

End Sub

本节先分享到这里,祝大家每天都有进步。

更多“Excel”相关内容

更多“Excel”相关内容

新知精选

更多新知精选