ªð¦^¦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 : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD