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

Transpose ..

Transpose ..

¬Ý¤F Transpose .. ¤°»ò««ª½Åܤô¥­..

§ÚÁÙ¬O¤£¤ÓÀ´..¤]¤£ª¾¹D¦p¦ó¹B¥Î

½Ð¨D¤j¤j»¡©ú¤Î±Ð¾Ç..

¦^´_ 2# lpk187


    ·P®¦¤j¤jªº¦^ÂÐ «Ü´Î³á!!

TOP

¦^´_ 1# EGBT

  1. Public Sub ex()
  2. arr = [A1:A4] '­ì¸ê®Æ¬°¯Sª½ªºA1:A4¡A¶À¦â°Ï°ì¡A¨ä°}¦C¼g¦¡¬°
  3. Range("B1").Resize(4) = arr '¥¼§ïÅÜ©ñ¦^Àx¦s®æ(¤@¼Ë¬°««ª½¦¡¸ê®Æ)¡Aºñ¦â°Ï°ì
  4. Range("c1").Resize(, 4) = Application.Transpose(arr) '§ïÅܫᬰ¤ô¥­
  5. '¤U¦C«h¬°¤W­±ªº¤Ï¦¡
  6. brr = [A7:D7]
  7. Range("A8").Resize(, 4) = brr
  8. Range("A9").Resize(4) = Application.Transpose(brr)

  9. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD