如题所述
第1个回答 2018-01-31
这个有点难度,可以试试下面的方法,使用宏代码
1、右击任一工作表标签》查看代码》插入工程》粘贴如下代码
Function GetVal(Rng As Range, i As Integer)
Dim regEx
Set regEx = CreateObject("VBScript.RegExp")
With regEx
.Pattern = "\w+"
.Global = True
End With
GetVal = regEx.Execute(Rng)(i - 1)
End Function
2、返回到工作表,输入公式
=GetVal(文本储存单元格,2)
3、个别特殊的单元格,公式必为
=GetVal(文本储存单元格,3)
因为有个别单元格是第三个单词。
第2个回答 2018-01-31
在B2单元格输入公式:
=IF(CODE(MID(A1,FIND(",",A1)-7,1))<130,MID(A1,FIND(",",A1)-7,7),MID(A1,FIND(",",A1)-6,6))
复制并下拉,即可
=IF(CODE(MID(A1,FIND(",",A1)-7,1))<130,MID(A1,FIND(",",A1)-7,7),MID(A1,FIND(",",A1)-6,6))
复制并下拉,即可
第3个回答 2018-01-31
B2单元格公式为
=RIGHT(MID(A2,FIND(",",A2)-10,10),2*LEN(MID(A2,FIND(",",A2)-10,10))-LENB(MID(A2,FIND(",",A2)-10,10)))
因为产品型号的长度为6、7、9,是随意变化的,此公式适用的型号长度为3 ~ 10个字符
第4个回答 2018-01-31
=MID(SUBSTITUTE(RIGHT(LEFT(A1,FIND(",",A1)-1),10)," ",""),MATCH(TRUE,CODE(MID(SUBSTITUTE(RIGHT(LEFT(A1,FIND(",",A1)-1),10)," ",""),COLUMN($A:$J),1))<=1000,0),10)
数组公式
数组公式
第5个回答 2018-01-31
split函数就可以了,按“,”号分割,取第一个部分,然后用right函数取6位。