|
1.不过最后取值的时候,汉字部分掉了第一个字!
2.如果汉字在前就会出问题!
谢谢提醒,当时未做测试,修正一下:
- Sub splt()
- Dim rng As Range, stg$, str$, i%, j%
- For Each rng In Range("A1", [A65536].End(3))
- stg = rng
- i = 1
- Do Until Mid(stg, i + 1, 1) Like "*[一-龥]*"
- i = i + 1
- Loop
-
- str = Left(stg, i - 1)
- j = 0
- Do While IsNumeric(Left(str, j + 1))
- j = j + 1
- Loop
- rng.Offset(, 1) = Trim(Right(str, Len(str) - j))
- rng.Offset(, 2) = Trim(Right(stg, Len(stg) - i))
- Next
- End Sub
复制代码
中英文分离.rar
(8.24 KB, 下载次数: 18)
关于第二条,如你所说,不在本贴要解决的范畴.有兴趣的话,咱们可以别贴讨论,^_^
[ 本帖最后由 alzeng 于 2009-7-23 06:25 编辑 ] |
|