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

[µo°Ý] ¸ê®Æ¾ã²z¨D¸Ñ

[µo°Ý] ¸ê®Æ¾ã²z¨D¸Ñ

¥»©«³Ì«á¥Ñ eghost ©ó 2015-8-2 16:56 ½s¿è

½Ð±Ð¦U¦ì¥ý¶i¡A§Ú¦³¤@°ï¸ê®Æ¡A¦p¤U²¥Ü¡G

²{»Ý­n§â¥¦¾ã²z¦¨¦p¤U¹Ï¥Ü¡G

¦]¬°¸ê®Æ¦³«Ü¦hµ§¡A¦pªG¤@µ§¤@µ§´¡¤JªÅ¥Õ¦C¦A½Æ»s¡A­nªá«Ü¦h®É¶¡¡A
¤£ª¾¹D¦³¨S¦³¨ä¥Lªº¤èªk¥i¥H§Ö³t¾ã²z§Úªº¸ê®Æ?

¦^´_ 1# eghost


    =OFFSET($A$1,(ROW(A1)-1)/2,MOD(ROW(A1)-1,2))

¤U©Ô

¦b½Æ»s/¿ï¾Ü©Ê¶K¤W/¨ú­È
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¥»©«³Ì«á¥Ñ eghost ©ó 2015-8-3 21:26 ½s¿è

¦^´_ 2# ML089


    ·PÁª©¥D¸Ñ´b¡ã^0^

    ¥t¥~·Q½Ð±Ð¡A³o¬O§_¤]¥i¥H¥ÎVBAªí¹F¡H
    ¥i¥H½Ðª©¥D½ç±Ð¶Ü¡H
    ¯Âãc¦n©_°Õ~^.^

TOP

¦^´_ 3# eghost
  1. Option Base 1
  2. Public Sub Ex()
  3. Dim ar()
  4. n = 1
  5. For Each Rng In [a1:b10]
  6.     ReDim Preserve ar(n)
  7.     ar(n) = Rng
  8.     n = n + 1
  9. Next
  10. [a1:b10].ClearContents
  11. [a1].Resize(UBound(ar)) = Application.Transpose(ar)
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# lpk187


    ·PÁªO¥Dº¡¨¬¤F§Úªº¦n©_¤ß..^^

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD