提取文字中的多个数字

kenny0918

麻烦各位高手帮忙解决下，多谢了！

laowuwyx

1. =IFERROR(LOOKUP(9,--RIGHT(TRIM(MID(SUBSTITUTE($B4,"，",REPT(" ",99)),FIND(LEFT(M$3,2),SUBSTITUTE($B4,"，",REPT(" ",99))),99)),{1,2,3})),"")

复制代码

质保也可以弄的，但是公式太长，没有意义，质保期手动弄吧，不通用，简直不通用，仅供参考。

laowuwyx

1. =IFERROR(LOOKUP(9,--RIGHT(TRIM(MID(SUBSTITUTE($B4,"，",REPT(" ",99)),FIND(LEFT(M$3,2),SUBSTITUTE($B4,"，",REPT(" ",99))),99)),{1,2,3})),"")

复制代码

仅供参考，不通用。

kenny0918

laowuwyx 发表于 2018-4-27 15:49
仅供参考，不通用。

谢谢，但是这个公式有的能计算，质保比率计算不出，质保期算不出，还有一些计算是错误的

laowuwyx

kenny0918 发表于 2018-4-27 16:24
谢谢，但是这个公式有的能计算，质保比率计算不出，质保期算不出，还有一些计算是错误的

说过是参考的，不通用，主要是数据找不到规律。

ww87725244

1. 将"质保款"改成"质保期款"
   
2. Function aa(rng As Range, rng1 As Range)
   
3. Dim ar, i%, d As Object, s
   
4. Set d = CreateObject("vbscript.regexp")
   
5. With d
   
6.     .Global = True
   
7.     .Pattern = "[^\d+]"
   
8. End With
   
9. ar = Split(rng.Value, "，")
   
10. For i = 0 To UBound(ar)
    
11.     If ar(i) Like "*" & Replace(rng1.Value, "款", "") & "*" Then
    
12.         s = d.Replace(ar(i), "") & "%"
    
13.     ElseIf rng1.Value = "质保期（天）" Then
    
14.         If ar(i) Like "*年*" Then
    
15.             s = InStr("一二三四五六七八九", Split(Replace(ar(i), "质保", ""), "年")(0)) * 365
    
16.         ElseIf ar(i) Like "*月*" Then
    
17.             s = d.Replace(ar(i), "") * 30
    
18.         End If
    
19.     End If
    
20. Next
    
21. aa = s
    
22. If s = "" Then aa = ""
    
23. Set d = Nothing
    
24. End Function

复制代码

laowuwyx

ww87725244 发表于 2018-4-27 16:29

这种问题还是只有VBA才能搞定。

ww87725244

如图片所示

mrzhang007988

laowuwyx

mrzhang007988 发表于 2018-4-27 17:18

1. =IFERROR(MID($B4,FIND(LEFT(N$3,2),$B4)-1+FIND("%",MID($B4,FIND(LEFT(N$3,2),$B4),15))-2,3),"")

复制代码

第一个公式把文字改成函数，公式可以右拉，不至于每列都写一个公式。