excel如何实现字符串拆分

Question

2030绿2100墨镜亮黑
2950摩卡2750白
1635金1668粉
1525绿

需要把上面的字符串数字与字符串分开

Answer 1

方法一：

1、在A2单元格输入以下公式，然后向下填充公式到A4

=TRIM(RIGHT(SUBSTITUTE(LEFT(A$1,FIND("座",SUBSTITUTE(A$1,"*","座",ROW(A1)))-1),"*",REPT(" ",99)),99))

2、在A5单元格输入

=RIGHT(A$1,LEN(A1)-FIND("座",SUBSTITUTE(A$1,"*","座",3)))

方法二：选择数据区域 ，在“数据”选项下的“分列”中，以“*”作为分隔符分列，分列后，复制，并“选择性粘贴”为“转置”，即可。

 

详见附图

 

 

Answer 2

可以利用VBA和正则表达式，编写自定义函数
Function SplitString(vStr As String, vType As Integer) As String
With CreateObject("VBScript.RegExp")
If vType = 1 Then ’将数字置换为空，提取非数字
.Pattern = "\d" ‘数字
ElseIf vType = 0 Then ’将非数字置换为空，提取数字
.Pattern = "\D" ‘非数字
End If
.Global = True
SplitString = .Replace(vStr, "")
End With
End Function
然后在单元格中插入该函数即可追问

在excel里面通过查看代码运行了你的函数，语句没问题。但是下一步在单元格插入定义的SplitString没有啊？

追答

新建标准模块，代码复制到标准模块中

本回答被网友采纳