Resize & Transpose½m²ß

lai.k.h

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

lai.k.h

¦^´_ 2# GBKEE


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

GBKEE

¦^´_ 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