Hsieh

¦^´_ 1# R915327

1. Private Sub CommandButton1_Click()
   
2. j = 2: r = 2
   
3. For Each a In Range([AS3], [AS65536].End(xlUp))
   
4. k = a.Offset(, 3)
   
5. For i = 1 To k
   
6.   ar = Array(a, a.Offset(, 1), "", a.Offset(, 2))
   
7.   Cells(r, j).Resize(4, 1) = Application.Transpose(ar)
   
8.   j = j + 8
   
9.   If j = 42 Then j = 2: r = r + 7
   
10. Next
    
11. If a.Offset(, 4) <> 0 Then
    
12.   ar = Array(a, a.Offset(, 1), "", a.Offset(, 4))
    
13.   Cells(r, j).Resize(4, 1) = Application.Transpose(ar)
    
14.   j = j + 8
    
15.   If j = 42 Then j = 2: r = r + 6
    
16. End If
    
17. Next
    
18. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# R915327

   ¦¹ºØªí®æ®M¦L­n¥Î¨ç¼Æ¨Ó¼g·|²Ö¦º¤Hªº
VBA¼g¤J¬O¤ñ¸û®e©ö§¹¦¨ªº
¤£À´VBA?
1.À˵ø/±±¨î¤u¨ã½c¡A¿ï«ö¶s¡A¦b¤u§@ªí¤¤´¡¤J«ö¶s±±¨î¶µ
2.§ÖÂI2¤U¸Ó«ö¶s¡A¶i¤JVBA½s¿è¾¹
3.±N¥N½X½Æ»s¶K¨ì½s¿è°Ï¤¤
4.µ²§ô³]­p¼Ò¦¡
«ö¤U«ö¶s´N·|°õ¦æµ{¦¡¤F

¤U¸ü (111.49 KB)

2011-1-30 21:02

Hsieh

¦^´_ 9# R915327

1. Private Sub CommandButton1_Click()
   
2. j = 2: r = 2 'jÅܼƬ°¥Ø¼ÐÄæ¦ì¡ArÅܼƬ°¥Ø¼Ð¦C¦ì
   
3. For Each a In Range([AS3], [AS65536].End(xlUp))
   
4. k = a.Offset(, 3)
   
5. For i = 1 To k '¾ã¥]¸Ë
   
6. ar = Array(a, a.Offset(, 1), "", a.Offset(, 2))
   
7. Cells(r, j).Resize(4, 1) = Application.Transpose(ar)
   
8. j = j + 8
   
9. If j = 42 Then j = 2: r = r + 7 '·íj=42´N­nÂk¦^¦a2Äæ¦C¼Æ´N­n¥[¤W¼ÐÅÒ¦C¼Æ+1ªÅ¥Õ¦C
   
10. Next
    
11. If a.Offset(, 4) <> 0 Then '¦³´²¸Ë
    
12.    ar = Array(a, a.Offset(, 1), "", a.Offset(, 4))
    
13.    Cells(r, j).Resize(4, 1) = Application.Transpose(ar)
    
14.    j = j + 8
    
15.    If j = 42 Then j = 2: r = r + 7 '·íj=42´N­nÂk¦^¦a2Äæ¦C¼Æ´N­n¥[¤W¼ÐÅÒ¦C¼Æ+1ªÅ¥Õ¦C
    
16. End If
    
17. Next
    
18. End Sub

½Æ»s¥N½X