路由人生 软件工具 excel如何按某列筛选自动打印

excel如何按某列筛选自动打印

当你某一列里的数据很多,需要按这一列的筛选数据分列打印时,这个自动打印的功能非常省事。

Sub autoprint()
Dim d
Dim arr
Dim i%, nrow%, s%
nrow = Range(“A65536”).End(3).Row   ‘第1列最后可见非空单元行号(A列分类)
arr = Range(“A3:A” & nrow)    ‘创建数组,标题行在第2行
s = UBound(arr)    ‘一维数组最后项数

Set d = CreateObject(“Scripting.Dictionary”)    ‘创建字典对象

For i = 1 To s    ‘循环数组各项
    d(arr(i, 1)) = “”    ‘纳入字典
Next
Range(“1:1”).AutoFilter    ‘选择第2行自动筛选(标题行在第2行)

For i = 1 To d.Count    ‘循环字典项
    Selection.AutoFilter Field:=1, Criteria1:=Application.Index(d.keys, 0, i)    ‘以字典各项自动筛选
    ActiveWindow.SelectedSheets.PrintOut   ‘打印当前表
Next

Selection.AutoFilter    ‘取消自动筛选,全部显示
End Sub

按列A分类打印 实现自动打印的功能 非常方便。

自动分类筛选打印
自动分类筛选打印
本文来自路由人生,转载请注明出处。

作者: myweb

发表评论

联系我们

联系我们

在线咨询: QQ交谈

邮箱: yufe@yufe.me

关注微信
微信扫一扫关注我们

微信扫一扫关注我们

关注微博
返回顶部