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

Resize & Transpose½m²ß

Resize & Transpose½m²ß

½Ð°Ý¤@¤UÀɮפ¤¬°¤°»òµLªk±N°}¦Cµ²ªGÅã¥Ü¥X¨Ó,¦]§Ú¹ïResize»PTransposeªº¹B¥Î¤´¤£¼ô±x,©Ò¥H·Q­É¦¹½m²ß,´Á¯à§ó¥[ÁA¸Ñ,©Î¬O¦³¬ÛÃö½d¨Ò¥i¨Ñ°Ñ¦Ò,ÁÂÁ¦U¦ì¦Ñ®vªº«ü¾É.

resize&transpose½m²ß.rar (7.89 KB)

¦^´_ 1# lai.k.h
Sub °}¦C¦s¨ú()
Dim Ar()
A = [c3:f5]
For i = LBound(A, 1) To UBound(A, 1)
   For j = LBound(A, 2) To UBound(A, 2)
   ReDim Preserve Ar(s)
   Ar(s) = A(i, j)
   s = s + 1
   Next
   Next
   [K11].Resize(s) = Application.Transpose(Ar)                       'ª½¦C
   [K11].Resize(1, s) = Ar                                  '¾î¦C
End Sub

TOP

¦^´_ 2# GBKEE


    GBKEEÁÂÁ±z,§Ú¤j·§ª¾¹D·N«ä¤F.

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD