Hsieh

1. Sub ¤À¦æ()
   
2. Dim A As Range, Ar()
   
3. For Each A In Selection
   
4.    mystr = A
   
5.    For i = 1 To Len(A)
   
6.    If Mid(A, i, 1) = "," Then s = s + 1
   
7.        If s Mod 4 = 0 And Mid(A, i, 1) = "," Then
   
8.         mystr = Application.WorksheetFunction.Replace(mystr, i, 1, Chr(10))
   
9.        End If
   
10.    Next
    
11.    A = mystr: s = 0
    
12. Next
    
13. End Sub
    
14. Sub ´_­ì()
    
15. For Each A In Selection
    
16. A.Value = Replace(A, Chr(10), ",")
    
17. Next
    
18. End Sub

½Æ»s¥N½X

¦^´_ 5# ´Ñ»y³¾»ï