Hsieh

¦^´_ 1# kennet

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. With Sheets("Data")
   
4.    For Each a In Range([A2], [A2].End(xlDown))
   
5.       d(a.Value) = "" '¬ö¿ýData¤u§@ªíAÄ涵¥Ø
   
6.    Next
   
7. End With
   
8. With Sheets("Print")
   
9.    For Each ky In d.keys
   
10.       .[A1] = ky '¦C¦L­¶ªºA1¼g¤J¶µ¥Ø
    
11.       .PrintOut '¦C¦L¦¹­¶
    
12.    Next
    
13. End With
    
14. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# kennet

1. Sub ex()
   
2. With Sheets("Classification Sheet")
   
3.   With .Range("C4")
   
4.   Set ar = Evaluate(.Validation.Formula1) '±NÅçÃÒ¤½¦¡Âন½d³ò
   
5.   For Each a In ar
   
6.     .Value = a
   
7.     .PrintOut
   
8.   Next
   
9.   End With
   
10. End With
    
11. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 5# kennet

1. Sub ex()
   
2. Dim s&, n&
   
3. With Sheets("Classification Sheet")
   
4.   With .Range("C4")
   
5.   Set ar = Evaluate(.Validation.Formula1) '±NÅçÃÒ¤½¦¡Âন½d³ò
   
6.   s = InputBox("Input start number", , 1)
   
7.   n = InputBox("Input printed pages", , 10)
   
8.   Do Until x = n
   
9.     .Value = ar(s + x)
   
10.     x = x + 1
    
11.     .PrintOut
    
12.   Loop
    
13.   End With
    
14. End With
    
15. End Sub

½Æ»s¥N½X