求助好大神！！！表格按某列内容自动筛选打印

wpsvip

hzruziniu 发表于 2018-8-15 10:50

非常感谢！好人一生平安！

Pisces_dc

hzruziniu 发表于 2018-8-14 16:23

请问，如果需要按照第5列来分类的话，公式该怎么改？

hzruziniu

Pisces_dc 发表于 2020-8-11 13:13
请问，如果需要按照第5列来分类的话，公式该怎么改？

1. Sub 按第5列筛选打印()
   
2.     Dim d As Object, rng, k, i%
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.     r = Range("e65536").End(xlUp).Row
   
7.     rng = Range([e3], "e" & r)
   
8.     For i = 1 To UBound(rng)
   
9.         d(rng(i, 1)) = ""
   
10.     Next
    
11.     For Each k In d.keys
    
12.         Range("A2:S" & r).Select
    
13.         Selection.AutoFilter
    
14.         Selection.AutoFilter Field:=5, Criteria1:=k
    
15.         ActiveSheet.PrintPreview '打印预览
    
16.        ' ActiveSheet.PrintOut    '直接打印
    
17.     Next
    
18.     Application.ScreenUpdating = True
    
19.     Application.DisplayAlerts = True
    
20. End Sub

复制代码

按第5列把不重复的字典值改为E列，把筛选代码Selection.AutoFilter Field:=5, Criteria1:=k中的Field:=5

Pisces_dc

hzruziniu 发表于 2020-8-11 15:02
按第5列把不重复的字典值改为E列，把筛选代码Selection.AutoFilter Field:=5, Criteria1:=k中的Field ...

非常感谢！学习了！