如何把还有不规则字符的单词和数字分开

JJJJJJJS

求助各位大神：
如何把含有不规则字符的单词（或英文名）和数字分开，
具体见下图或者附件。



分开要求：只要求把数据中的英文部分一列，数字部分一列即可，见下图。




本人已经百度过一些方法，比方用数据分列或者=LEFT这类型函数，不过因为数据不太规则，所以总是没办法快速分离。
求助大神是否有简单的方法？

感谢，新年快乐。

augustjerry

是这样吗？

mrzhang007988

b2=MID(A2,MIN(IFERROR(SEARCH(ROW($1:$10)-1,A2),999)),99)数组输入

mengrs

=MID(A2,MIN(FIND(ROW($1:$10)-1,A2&1234567890)),99)

JJJJJJJS

augustjerry 发表于 2018-2-16 19:06
是这样吗？

是的 你提供的模板可以了。
我再研究一下你的公式，不太懂。

JJJJJJJS

3楼四楼的好像不太行，我也一起研究一下

吧123456789

Sub hh()
For i = 2 To 14
Set r1 = CreateObject("VBScript.RegExp")

Set r2 = CreateObject("VBScript.RegExp")

    r2.Global = True
    r2.Pattern = "[^(\d+ )+]"
    Range("c" & i).Value = Trim(r2.Replace(Range("a" & i).Value, ""))
    r1.Global = True
    r1.Pattern = "\d"
    Range("b" & i).Value = r1.Replace(Range("a" & i).Value, "")
   Next
   
End Sub

吧123456789

1. 求助.rar (7.19 KB, 下载次数: 0)
   2018-2-17 23:28 上传

   点击文件名下载附件
   Sub hh()
   
2. For i = 2 To 14
   
3. Set r1 = CreateObject("VBScript.RegExp")
   
4. 
   
5. Set r2 = CreateObject("VBScript.RegExp")
   
6. 
   
7.     r2.Global = True
   
8.     r2.Pattern = "[^(\d+ )+]"
   
9.     Range("c" & i).Value = Trim(r2.Replace(Range("a" & i).Value, ""))
   
10.     r1.Global = True
    
11.     r1.Pattern = "\d"
    
12.     Range("b" & i).Value = r1.Replace(Range("a" & i).Value, "")
    
13.    Next
    
14.    
    
15. End Sub
    

复制代码

Nina-2018

楼上都好复杂噢，2016版有个新功能 ：史上最快字符分离与合并大法:Ctrl+E， 可以秒完成，无须任何公式。

吧123456789

Nina-2018 发表于 2018-2-18 14:05
楼上都好复杂噢，2016版有个新功能 ：史上最快字符分离与合并大法:Ctrl+E， 可以秒完成，无须任何公式。

是吗？改成自定义函数用着顺手