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

[µo°Ý] ¦Cªº°j°é»yªk

¦^´_ 1# ABK
  1. Sub EX()
  2. n = 1
  3. For Each aa In Range([S3], [AG3].End(xlToRight))
  4. Cells(6, 18 + n) = aa
  5. n = n + 1
  6. Next
  7. End Sub
½Æ»s¥N½X
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD