自动筛选并打印

tz555

刚才附件没传上去。求助各位大神，怎样实现按A列“单位”自动筛选，筛选后隐藏C列到BB列之间无数值的列（如果隐藏后C列到BB列之间无数值的列小于3列则最少保留3列）并打印，之后依次进行。就是按A列每一个单位打印一张表，隐藏C列到BB列之间无数值的列（最少保留3列）。

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Dim rng As Range
   
6.   Application.ScreenUpdating = False
   
7.   Application.DisplayAlerts = False
   
8.   Set d = CreateObject("scripting.dictionary")
   
9.   Set d1 = CreateObject("scripting.dictionary")
   
10.   With Worksheets("sheet1")
    
11.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
12.     c = .Cells(2, .Columns.Count).End(xlToLeft).Column
    
13.     arr = .Range("a1:a" & r)
    
14.     For i = 3 To UBound(arr)
    
15.       If Not d.exists(arr(i, 1)) Then
    
16.         Set d(arr(i, 1)) = .Range("a1").Resize(2, c)
    
17.       End If
    
18.       Set d(arr(i, 1)) = Union(d(arr(i, 1)), .Cells(i, 1).Resize(1, c))
    
19.     Next
    
20.   End With
    
21.   With Worksheets("模板")
    
22.     For Each aa In d.keys
    
23.       .Cells.Clear
    
24.       d(aa).Copy .Range("a1")
    
25.       r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
26.       arr = .Range("a1").Resize(r, c)
    
27.       d1.RemoveAll
    
28.       For j = 3 To UBound(arr, 2)
    
29.         If Application.Count(Application.Index(arr, 0, j)) <> 0 Then
    
30.           d1(j) = ""
    
31.         End If
    
32.       Next
    
33.       d1(c) = ""
    
34.       n = 3
    
35.       Do While d1.Count < 3
    
36.         d1(n) = ""
    
37.         n = n + 1
    
38.       Loop
    
39.       Set rng = .Columns(c + 1)
    
40.       For j = 3 To c
    
41.         If Not d1.exists(j) Then
    
42.           Set rng = Union(rng, .Columns(j))
    
43.         End If
    
44.       Next
    
45.       rng.Delete
    
46.       .PrintOut
    
47.     Next
    
48.   End With
    
49. End Sub
    

复制代码

chxw68

详见附件。没有认真测试。

tz555

chxw68 发表于 2019-2-21 15:43
详见附件。没有认真测试。

好的，谢谢了

tz555

chxw68 发表于 2019-2-21 15:43
详见附件。没有认真测试。

你好，这个vba很好用，但是怎样设置打印格式呢？比如设置行宽和列高，在打印设置里设置之后打印出来还是原来的样子，求助，谢谢！