求组，用VBA拆分字母和字母后的数字

cushion1

各位高手，请教一下，如何用VBA拆分字母及数字，谢谢！附件地址 vba拆分字母.zip (6.43 KB, 下载次数: 10)

2013-5-15 09:47 上传

点击文件名下载附件

该贴已经同步到 cushion1的微博

nigeshabi

用公式做的

levey

Sub cut()
For i = 2 To Range("a65536").End(xlUp).Row
aaa = Cells(i, 1).Value
   For y = 1 To Len(aaa)
       If Mid(aaa, y, 1) > 9 And Mid(aaa, y, 1) <> "*" Then
          z = y
       End If
   Next
   Cells(i, 2) = Left(aaa, z)
   Cells(i, 3) = Right(aaa, Len(aaa) - z)
Next
End Sub

levey

不好意思，前面出了点问题，严谨点的话应该将：
If Mid(aaa, y, 1) > 9 And Mid(aaa, y, 1) <> "*" Then替换成If Mid(aaa, y, 1) > “@” Then。
因为在VBA 128字符集中，“A”在65位，它的前一位是“@”，而“a”则在97位。

grf1973

1. Sub tt()
   
2. For i = 2 To 4
   
3.     mstr = Cells(i, 1)
   
4.     str1 = "": str2 = mstr
   
5.     For k = 1 To Len(mstr)
   
6.         c = Mid(mstr, k, 1)
   
7.         If c Like "[A-Z]" Then
   
8.             str1 = str1 & c
   
9.             str2 = Replace(str2, c, "")
   
10.         End If
    
11.     Next
    
12.     Cells(i, 3) = str1
    
13.     Cells(i, 4) = str2
    
14. Next
    
15. End Sub
    

复制代码