GBKEE

¦^´_ 1# ui123

¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, Sp As Variant
   
4.     Set Rng = Range("a4")
   
5.     Do While Rng <> ""
   
6.         Sp = Rng
   
7.         For i = 1 To Len(Rng)
   
8.             If Mid(Rng, i, 1) Like "[!A-z]" And Mid(Rng, i, 1) Like "[!0-9]" Then
   
9.                 'Mid(Rng, i, 1) ¤£¬O¤å¦r,¼Æ¦r.
   
10.                 Sp = Replace(Sp, Mid(Sp, i, 1), ",")  '+"-"©Î"/"©Î"#"  ´À´«¬° ","
    
11.             End If
    
12.         Next
    
13.         Sp = Split(Sp, ",")
    
14.         With Rng.Cells(1, 2).Resize(1, UBound(Sp) + 1)
    
15.             .Value = Sp
    
16.             .Value = .Value
    
17.         End With
    
18.         Set Rng = Rng.Offset(1)
    
19.     Loop
    
20. End Sub

½Æ»s¥N½X