GBKEE

¦^´_ 1# sunnyso

1. Option Explicit
   
2. Sub EX()
   
3.     Dim A As Variant, B As Variant, C As Variant, I As Integer
   
4.     A = Array(Array("A1", "B1", "C1"), Array("A2", "B2", "C2"), Array("A3", "B3", "C3"))
   
5.     B = Array(Array("A4", "B4", "C4"), Array("A5", "B5", "C5"))
   
6.     C = A
   
7.     For I = 0 To UBound(B)
   
8.         ReDim Preserve C(0 To UBound(C) + 1)
   
9.         'ReDim ³¯­z¦¡  ¦bµ{§Ç¼h¦¸¤¤¥Î¨Ó­«·s°t¸m°ÊºA°}¦CÅܼƪºÀx¦sªÅ¶¡¡C
   
10.         'Preserve  ·í§ïÅܭ즳°}¦C³Ì«á¤@ºûªº¤j¤p®É¡A¤´µM«O¦³­ì¨Óªº¸ê®ÆªºÃöÁä¦r
    
11.         C(UBound(C)) = B(I)
    
12.     Next
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# sunnyso
«Ý§Ú¦A·Q¤@·Q¦³µL!!!

GBKEE

¦^´_ 11# ML089

1. Option Base 0   'Option Base ³¯­z¦¡  ¦b¼Ò²Õ¼h¦¸¤¤¥Î¨Ó«Å§i°}¦C¯Á¤Þªº¹w³]¤U­­
   
2. Sub Ex()
   
3.     Dim A As Variant, B As Variant, C As Variant, i As Integer
   
4.     'Àx¦s®æªº½d³ò = ¬O¤@­Ó¤Gºû°}¦C ,¥¦ªº¯Á¤Þªº¹w³]¤U­­¬O 1.
   
5.     A = Array(Array("A1", "B1", "C1"), Array("A2", "B2", "C2"), Array("A3", "B3", "C3"))
   
6.     'A¬°¤@ºû°}¦C: ¤¸¯À¤]¬O¤@ºû°}¦C
   
7.     [I1] = "AµLªk¸m¤J"
   
8.     [I2].Resize(3, 3) = A
   
9.     '*** ¤£Âà¸m  ªº¼gªk **************
   
10.     [E1] = "¤£Âà¸m  ªº¼gªk"
    
11.     For i = 0 To UBound(A)
    
12.         [E1].Offset(i + 1).Resize(1, 3) = A(i)
    
13.     Next
    
14.     '********************************
    
15.     B = Application.Transpose(A)                     'Âà¸m¤@¦¸¥i¥H ¤@¦¸¼g¤J A °}¦C©óÀx¦s®æ
    
16.     '****Âà¸m«áªº°}¦C  ¤U­­¬O 1 ¶}©l¤£¥Î +1
    
17.     [A1].Resize(UBound(B), UBound(B, 2)) = B
    
18.     [A1].End(xlDown).Offset(1) = "²Ä¤G¦¸Âà¸m*"
    
19.     C = Application.Transpose(Application.Transpose(A))
    
20.     [A1].End(xlDown).Offset(1).Resize(UBound(A) + 1, 3) = C
    
21.    Stop '¬Ý¬ÝÅܼÆ
    
22. End Sub
    
23. Sub Ex__A()
    
24.     '¦C = ¤@ºû°}¦C
    
25.     Cells.Clear
    
26.     A = Array("A1", "B1", "C1")
    
27.     [A1:C1] = A
    
28.     B = Application.Transpose(A)
    
29.     [a5:A7] = B
    
30. End Sub

½Æ»s¥N½X

¤U¸ü (55.42 KB)

2013-5-22 17:34

GBKEE

¦^´_ 13# ML089
12#µ{¦¡½X¨S»¡²M·¡

1. 24.    '¦C = ¤@ºû°}¦C

½Æ»s¥N½X

²M·¡¤@ÂIÀ³¸Ó¬O: ³æ¦C(A1:F1)ªºÀx¦s®æ½d³ò = ¤@ºû°}¦C, ³æ¦C¥H¤W(A1:F5)ªºÀx¦s®æ½d³ò = ¤Gºû°}¦C
¦h½m²ß¼ô±x´N·|¤F¸Ñ