GBKEE

¦^´_ 3# freeffly
ReDim brr(1 To 2, 1 To n + 1) ´N¶·­nÂà¸m

1. Private Sub CommandButton1_Click()
   
2. Dim arr() As String, brr() As String
   
3. s = Range("a1").Value
   
4. arr = Split(s, ",")
   
5. n = UBound(arr)
   
6. ReDim brr(1 To 2, 1 To n + 1)
   
7. For i = 1 To n + 1
   
8. If Right(arr(i - 1), 3) = "(¤k)" Then
   
9.     brr(1, i) = Left(arr(i - 1), Len(arr(i - 1)) - 3)
   
10.     brr(2, i) = "¤k"
    
11.   Else
    
12.    brr(1, i) = arr(i - 1)
    
13.     brr(2, i) = "¤k"
    
14.   End If
    
15. Next
    
16. Range("b6").Resize(n, 2) = Application.Transpose(brr)
    
17. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# freeffly
Ar( 2 TO 10 ,1 TO 3)    ¬Û·í©ó¤u§@ªíªº[A2:C10]½d³òªº¤j¤p¦ì¸m
²Ä¤@ºû¤¸¯À(2 T0 10 )  ¬Û·í©ó¤u§@ªíªº²Ä2¦C¨ì²Ä10¦C
²Ä¤Gºû¤¸¯À(1 T0 3 )    ¬Û·í©ó¤u§@ªíªº²Ä1Äæ¨ì²Ä3Äæ
A(2,1)=[A2],A(2,2)=[B2],A(2,3)=[C2]
A(3,1)=[A3],A(3,2)=[B3],A(3,3)=[C3]
A(4,1)=[A4],A(4,2)=[B3],A(4,3)=[C3]

1. 'UBound ¨ç¼Æ ¶Ç¦^ Long­È¡Aªí¥Ü«ü©w°}¦C¬Yºû³Ì¤j¥i¨Ï¥Îªº°}¦C¯Á¤Þ¡C
   
2. Sub EX()
   
3. Dim Ar()
   
4. Ar = [A2:C10].Value '½Ð¥ý¦Û¦æ¦b[A1:C10]½d³ò¤º«Ø¥ß¸ê®Æ
   
5. 'UBound(Ar) Ar²Ä¤@ºû³Ì¤j¥i¨Ï¥Îªº°}¦C¯Á¤Þ
   
6. 'UBound(Ar,2) Ar²Ä¤Gºû³Ì¤j¥i¨Ï¥Îªº°}¦C¯Á¤Þ
   
7. [E1].Resize(UBound(Ar), UBound(Ar, 2)) = Ar
   
8. 
   
9. [K1].Resize(UBound(Ar, 2), UBound(Ar)) = Application.WorksheetFunction.Transpose(Ar)
   
10. '¨Ï¥ÎÂà¸m¨ç¼Æ Application.WorksheetFunction.Transpose
    
11. 
    
12. [E11].Resize(1, UBound(Ar, 2)) = Application.Index(Ar, 2)
    
13. 'Application.Index(Ar, 2)->AR²Ä¤@ºûªº²Ä2¦C
    
14. 
    
15. [E13].Resize(UBound(Ar, 2), 1) = Application.Transpose(Application.Index(Ar, 2))
    
16. '¨Ï¥ÎÂà¸mAR²Ä¤@ºûªº²Ä2¦C
    
17. End Sub

½Æ»s¥N½X

¦p Ar = [A1:C10].Value ->Ar(1 To 10, 1 To 3)