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

[µo°Ý] Application.Transpose() ¥i¥H³B²z¸ê®ÆÂà¸mªº°}¦Cªø«× ?

[µo°Ý] Application.Transpose() ¥i¥H³B²z¸ê®ÆÂà¸mªº°}¦Cªø«× ?

½Ð±Ð¥ý¶i

¤U¦Cµ{¦¡°õ¦æ®ÉÅã¥Ü Ãþ§O¤£¦X ¿ù»~

sub ex()
     Dim Arr()
     Dim NumOfRow as Long      
'°²¦p NumOfRow ¶W¥X 2^16 (=65536)¡A¨ú¤J¸ê®ÆÂà¸m¡A¤U¤@µ{¦¡½X°õ¦æ®É´NÅã¥Ü¿ù»~
      Arr = Application.Transpose(Range("A2").resize(NumOfRow,1).value)
End sub

Excel ª©¥» 2010
¤u§@ªí¤º¸ê®Æ¶W¹L10¸Uµ§¡A¦p¤£¥þ³¡¥H For ....   Next ¤èªk¡A¦p¦ó§â¸ê®Æ§Ö³t¥þ³¡¨ú¤J°}¦C¨Ó³B²z¡A¦A¥H°}¦C¦^¸mµ¹¤u§@ªí?

¦^´_ 2# stillfish00


    «D±`·P®¦ ¤j«L´£¨Ñªº¤èªk»P¥Î¤ßªº¨ç¼Æ
³o­Ó¤w¸Ñ¨M°ÝÃD

¦A¦¸ªºÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD