GBKEE

¦^´_ 1# sammyc

1. Sub Ex()
   
2. Dim Ar(), S As Integer, A As Range, I As Integer, T As String
   
3. For Each A In Range([A1], [A65536].End(xlUp))
   
4.     For I = 0 To UBound(Split(A.Cells(1, 4), ","))
   
5.         If Split(A.Cells(1, 4), ",")(I) <> "" Then
   
6.             ReDim Preserve Ar(S)
   
7.             Ar(S) = Application.Transpose(Application.Transpose(A.Resize(1, 7).Value))
   
8.             T = IIf(UBound(Split(A.Cells(1, 4), ",")) > 0, ",", "")
   
9.             Ar(S)(4) = T & Split(A.Cells(1, 4), ",")(I) & T
   
10.             S = S + 1
    
11.         End If
    
12.     Next
    
13. Next
    
14. [I1].Resize(S, 7) = Application.Transpose(Application.Transpose(Ar))
    
15. End Sub

½Æ»s¥N½X