ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¸ê®Æ¹ïÀ³

¸ê®Æ¹ïÀ³

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

100.zip (4.62 KB)

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD