¸ê®Æ¹ïÀ³

y663258

¤j®a¦n¡A·q½ÐÀ°¦£¦pªþ¥ó»¡©úvba­n«ç»ò¼g¡A·Q¤F«Ü¤[´N¬O°µ¤£¨ì¡C

Hsieh

¦^´_ 3# y663258

1.     Sub nn()
   
2. Dim ar(7, 6)  '«Å§i¤@­Ó6¦C7Ä檺°}¦C
   
3. ar(1, 2) = "¦~": ar(3, 2) = "¤ë": ar(5, 2) = "¤é" '©T©w¤£Åܪº­È¥ý¼g¤J°}¦C
   
4. r = 4: k = 1  '¶}©l¼g¤Jªº¦ì¸mr¬O¦C¦ì¡Ak¬OÄæ¦ì
   
5. With Sheet2
   
6. For Each a In .Range(.[A2], .[A65536].End(xlUp))  
   
7.   ar(0, 4) = a.Value                     'AÄ檺­È¬O°}¦C¤¤²Ä5Ä檺²Ä1­Ó¦ì¸m
   
8.   ar(0, 2) = a.Offset(, 1).Value    'BÄ檺­È¬O°}¦C¤¤²Ä3Ä檺²Ä1­Ó¦ì¸m
   
9.   ar(2, 2) = a.Offset(, 2).Value    'CÄ檺­È¬O°}¦C¤¤²Ä3Ä檺²Ä3­Ó¦ì¸m
   
10.   ar(4, 2) = a.Offset(, 3).Value    'DÄ檺­È¬O°}¦C¤¤²Ä3Ä檺²Ä5­Ó¦ì¸m
    
11.   ar(0, 0) = a.Offset(, 4).Value    'EÄ檺­È¬O°}¦C¤¤²Ä1Ä檺²Ä1­Ó¦ì¸m
    
12.   Sheet1.Cells(r, k).Resize(7, 6) = ar  '¼g¤J¨ìªí®æ
    
13.   k = k + 6 '·Ç³Æ¤U¤@­Ó¼g¤JÄæ¦ì
    
14.   If k = 25 Then k = 1: r = r + 10  '¦]¬°¼ÐÅÒ¾î¦V¦³4±i¡A¨C±i¦û¤F6Äæ¡A©Ò¥H·í¼g¤J¦ì¸m¨ì¤F25Äæ®É¥²¶·¦^¨ì²Ä¤@Äæ¡A¨Ã¦V¤U¦ì²¾10¦C¼g¤J
    
15. Next
    
16. End With
    
17. End Sub

½Æ»s¥N½X

y663258

Hsieh ª©¥D¡AÁÂÁ¸g´ú¸Õ§¹¥þ¥¿½T¡A¬è±æÀò±oª`¸Ñ¥H«K¾Ç²ß¥i¥H¶Ü¡C

Hsieh

¦^´_ 1# y663258

1. Sub nn()
   
2. Dim ar(7, 6)
   
3. ar(1, 2) = "¦~": ar(3, 2) = "¤ë": ar(5, 2) = "¤é"
   
4. r = 4: k = 1
   
5. With Sheet2
   
6. For Each a In .Range(.[A2], .[A65536].End(xlUp))
   
7.   ar(0, 4) = a.Value
   
8.   ar(0, 2) = a.Offset(, 1).Value
   
9.   ar(2, 2) = a.Offset(, 2).Value
   
10.   ar(4, 2) = a.Offset(, 3).Value
    
11.   ar(0, 0) = a.Offset(, 4).Value
    
12.   Sheet1.Cells(r, k).Resize(7, 6) = ar
    
13.   k = k + 6
    
14.   If k = 25 Then k = 1: r = r + 10
    
15. Next
    
16. End With
    
17. End Sub

½Æ»s¥N½X