GBKEE

¦^´_ 2# yurckr
½ÐªþÀɤW¨Ó»¡²M·¡

GBKEE

¦^´_ 4# yurckr

1. Sub «ö¶s1_Click()
   
2.     Dim Ar(), Rng As Range, i, ii
   
3.     With ¤u§@ªí1
   
4.         If .Range("a2").End(xlDown).Row = Rows.Count Then Exit Sub 'µL¸ê®Æ
   
5.         Ar = .Range("a3", .Range("a3").End(xlDown))
   
6.         Set Rng = .Range("C3:C8")        '¿é¤J°Ï
   
7.         For i = 1 To UBound(Ar) Step 6   '°}¦C¯Á¤Þ ¶¡¹j6
   
8.             Rng = ""                    '²M°£¿é¤J°Ï
   
9.             For ii = i To i + 5          '
   
10.                 If ii <= UBound(Ar) Then Rng(ii - i + 1) = Ar(ii, 1)
    
11.                 'Rng(ii - i + 1) -> ¨Ì§Ç¬° ¿é¤J°Ïªº 1,2,3,4,5,6 ªºCells
    
12.             Next
    
13.             '  .PrintOut  '¦L¦C
    
14.         Next
    
15.         MsgBox "¦L¦C§¹²¦"
    
16.     End With
    
17. End Sub
    
18. Sub Ex()
    
19.     Dim Rng As Range
    
20.     With ¤u§@ªí1
    
21.          If .Range("a2").End(xlDown).Row = Rows.Count Then Exit Sub 'µL¸ê®Æ
    
22.         Set Rng = .Range("A3")   'A¦Cªº¼Æ¾Úªº²Ä1­Ó¦ì¸m
    
23.         Do
    
24.             .Range("C3:C8") = "" '²M°£¿é¤J°Ï
    
25.             .Range("C3:C8") = Rng.Resize(6).Value  '¿é¤J°Ïªº­È=RngÂX¥R6¦C«áªº­È
    
26.           '  .PrintOut  '¦L¦C
    
27.             Set Rng = Rng.Offset(6)   '³]©wA¦Cªº¼Æ¾Ú©¹¤U¦ì²¾6¦C
    
28.         Loop Until Application.CountA(Rng.Resize(6)) = 0
    
29.         'loop °j°é Â÷¶}±ø¥ó  Until(ª½¨ì) -> A¦C  6¦C¨S¦³¼Æ¾Ú
    
30.         MsgBox "¦L¦C§¹²¦"
    
31.     End With
    
32. End Sub

½Æ»s¥N½X