字符串分列出字母和数字

yunqingzi

各位大侠，请帮忙看下。<br/>

不看不看

<p>笨办法，但是简单，d替换为-d e替换为e- 再分列，再&amp;到一起</p><p>还有函数的办法，有文本连接问题，麻烦些</p><p>vba的好办</p>

鲨鱼

<p>用MID 试试 </p><p></p>

hai

<br/>

yunqingzi

<p>四楼的是高手，可是你的hai函数是怎么来的啊。小弟我看不懂啊。</p>

wudixin96

自定义函数。

wudixin96

Dim regex As Object, i As Integer<br/>Application.ScreenUpdating = False<br/>Application.EnableEvents = False<br/>Set regex = CreateObject("VBScript.Regexp")<br/>regex.Pattern = "[0-9]"<br/>regex.ignorecase = True<br/>regex.Global = True<br/>For i = 2 To [a65536].End(xlUp).Row<br/>牋?regex.Pattern = "[0-9]"<br/>牋?Cells(i, "e").Value = regex.Replace(Cells(i, 1).Value, "")<br/>牋?regex.Pattern = "[a-z]"<br/>牋?Cells(i, "f").Value = regex.Replace(Cells(i, 2).Value, "")<br/>Next<br/>Set regex = Nothing<br/>Application.ScreenUpdating = True<br/>Application.EnableEvents = True

yunqingzi

看不懂啊，能不能用EXCEL自带的函数啊。那样比较好理解点。