关于字符分离的问题

gulbe · 发表于 2018-8-29 19:25

本帖最后由 gulbe 于 2018-8-29 19:26 编辑

各位老师：
   好，我想对某一列的所有单元格进行字符分离，主要就是提取我想要的：
   例如，A1单元格显示 ABR%0-365小红我想把人名字提取出来放到B1单元格，怎么做？
   请老师们指点，我想用VBA，麻烦老师指点一下！

lsc900707 · 发表于 2018-8-29 19:33

不是第一次发帖吧，此类问题没有附件是难以答复的。

jiminyanyan · 发表于 2018-8-29 20:09

上个附件。。。。

iwangyi · 发表于 2018-8-29 20:26

Sub CC()
N = [A65536].End(3).Row
For i = 1 To N
For j = 1 To Len(Cells(i, 1))
If Mid(Cells(i, 1), j, 1) Like "[^一-龢]" Then
Cells(i, 2) = Mid(Cells(i, 1), j - 1, Len(Cells(i, 1)))
End If
Next: Next
End Sub

iwangyi · 发表于 2018-8-29 20:37

附件请参考

chaohuahch · 发表于 2018-8-29 20:42

iwangyi 发表于 2018-8-29 20:26
Sub CC()
N = [A65536].End(3).Row
For i = 1 To N

正则的语法，还可以这样引用的嘛。。学习了。

iwangyi · 发表于 2018-8-29 20:45

正则不会，正想学正则

		自动登录	找回密码
密码			免费注册

[求助] 关于字符分离的问题