«¬ºA¤£²Å

y663258

¦U¦ì¤j¤j¡Aµ{¦¡½X°õ¦æµo¥Í«¬ºA¤£²Å¡A­n¦p¦ó­×¥¿½Ð¨ó§UÁÂÁ¡C

GBKEE

¦^´_ 3# y663258
    Dim A As Range, ar(31)  , Ay()   ar «Å§iªº¬O¤@ºû°}¦C Ay ¬O°ÊºA°}¦C    
    ReDim Preserve Ay(x)               ReDim Preserve Ay(x) ¤]¬O¤@ºû°}¦C     
   Ay(x) = ar      
                     
¤U¦Cµ{¦¡½X¬°¤Gºû°}¦Cªº¥Îªk

1. Sub Ex()
   
2.     Dim Ar(), x As Integer, i As Integer
   
3.     For x = 0 To 10
   
4.         ReDim Preserve Ar(1 To 10, x)  '­«·s«Å§i¬°¤Gºû°}¦C
   
5.         For i = 1 To UBound(Ar, 1)
   
6.             Ar(i, x) = x & "- " & Chr(64 + i) & " " & i
   
7.         Next
   
8.     Next
   
9.     [a1].Resize(UBound(Ar, 1), UBound(Ar, 2) + 1) = Ar
   
10.     [a1].End(xlDown).Offset(2).Resize(UBound(Ar, 2) + 1, UBound(Ar, 1)) = Application.Transpose(Ar)
    
11. End Sub

½Æ»s¥N½X

y663258

GBKEE ª©¥D¡AÁÂÁ±zÀ°¦£³o»ò§ï¤@¤U´N¯à¶¶§Q¾Þ§@¡A¯à§_¸ÑÄÀ¤GªÌ®t§O¡AÁÂÁ¡C

GBKEE

¦^´_ 1# y663258
§R±¼  Sheet2.[B5].Resize(x , 31) = Application.Transpose(Application.Transpose(Ay))
§ï¦¨¦p¤U:
     For i = 0 To UBound(Ay)
        Sheet2.[B5].Offset(i).Resize(, 31) = Ay(i)
    Next