faye59

回復 3# mhl9mhl9


    試試看！

1. Sub ex()
   
2. For Each aa In Sheets("工作表1").Range([A1], [A1].End(xlDown))
   
3.     aa.Offset(, 0) = StrType(aa)
   
4. Next
   
5. End Sub
   
6. Function StrType(Mystr)
   
7. For i = 1 To Len(Mystr)
   
8.     k = AscW(Mid(Mystr, i))
   
9.     Select Case k
   
10.     Case 12290 '全型句號
    
11.         Textstring = Textstring & "."
    
12.     Case Else
    
13.         Textstring = Textstring & Mid(Mystr, i, 1)
    
14.     End Select
    
15. Next
    
16. StrType = Textstring
    
17. End Function

複製代碼