GBKEE

¦^´_ 2# joey0415
½Ð°Ñ¦Ò°Ñ¦Ò
Sub Ex()
    Dim Rng As Range, A, B, W, E
    W = "111,222,333,444 AAAA,BBB,CCC,DDDD"
    A = Split(W, " ")  '¥HªÅ¥Õ¤À¸Ñ
    Set Rng = [A1]
    Rng.CurrentRegion = ""
    For Each E In A
        B = Split(E, ",")  '¥H , ¤À¸Ñ
       '''''''''''¾î±Æ
        Rng.Resize(1, UBound(B)+1) = B     '°}¦C¬O¾î±Æªº
        Set Rng = Rng.Offset(1)
        '''''''''''ª½±Æ
        'Rng.Resize(UBound(B)+1, 1) = Application.Transpose(B)  'TransposeÂà¸m¬°ª½±Æ
        'Set Rng = Rng.Offset(, 1)
    Next
End Sub

GBKEE

¦^´_ 6# lasum
Sub Macro1()
On Error Resume Next '¼W¥[µ{¦¡   '<- ³o¤£¬O¸Ñ¨M¤§¹D :   ¦pµ{¦¡¤¤ÁÙ¦³¿ù»~¬O·|§ä¤£¥X¨Óªº
t = [a1]                                                < ..°ÝÃD¬O³o¦r¦ê¤¤  ¦p¨S¦³ ªÅ®æªº¦r¦ê
sp = Split(t, " ")                                 <-³o¸Ìªº°}¦C¤W­­¤¸¯Àªº¯Á¤Þ­È ¥u¦³ 0
p1 = Split(sp(0), ",")
p2 = Split(sp(1), ",")                         <-  ³o¥²µM·|¥X²{ °}¦C¯Á¤Þ¶W¥X½d³ò ¿ù»~ 9

1. Sub Ex()
   
2. Dim A, AR, xi As Integer
   
3. A = "A111,222,333,444" '³o¸ÌªºA¦r¦ê ®M¨ì oobird ¶Wª©ªºµ{¦¡ ·|¥X¿ù
   
4. 'A = "A111,222,333,444 Baa,bbb,ccc,ddd C11,222,333,444 Daa,bbb,ccc,ddd"
   
5. '¤W­±ªº A¦r¦ê ®M¨ì oobird ¶Wª©ªºµ{¦¡ OKªº
   
6. AR = Split(A, " ")
   
7. For xi = 0 To UBound(AR) 'UBound ¶Ç¦^ °}¦Cªº¤W­­¤¸¯Àªº¯Á¤Þ­È
   
8. A = Split(AR(xi), ",")
   
9. [a1].Offset(xi).Resize(, UBound(A) + 1) = A
   
10. [G1].Offset(, xi).Resize(UBound(A) + 1) = Application.Transpose(A)
    
11. 'Transpose ¤u§@ªí¨ç¼Æ :Âà¸m
    
12. Next
    
13. End Sub

½Æ»s¥N½X