如何自定义函数提取数字后的文字

jiangjian138

如：五十铃QL5040X8EWR厢式货车，只要自定函数提取出来是字母后面的文字“厢式货车”或者奔驰BENZ B180轿车，只要自定函数提取出来是数字后面的文字“轿车”

zjdh

提取汉字.rar (13.16 KB, 下载次数: 18)

2018-2-11 18:14 上传

点击文件名下载附件

活在理想的世界

就这几种吗？最好多模拟几种情况。本人想象力毕竟差。

1. Function REG(V As Variant)
   
2. Dim REG1 As Object, Mac As Object, m As Object, str1 As String
   
3. Set REG1 = CreateObject("VBScript.RegExp"): REG1.Global = 1: REG1.Pattern = "\w+([一-龥]+)"
   
4. Set Mac = REG1.Execute(V)
   
5. For Each m In Mac
   
6.     For Each ii In m.SubMatches
   
7.         V = ii
   
8.     Next
   
9. Next
   
10. REG = V
    
11. End Function

复制代码

jiangjian138

活在理想的世界 发表于 2018-2-11 18:23
就这几种吗？最好多模拟几种情况。本人想象力毕竟差。

能不能帮忙，看看求助当部分条件为空时，完善代码得到要的结果
http://club.excelhome.net/thread-1397303-1-1.html

活在理想的世界

jiangjian138 发表于 2018-2-11 18:27
能不能帮忙，看看求助当部分条件为空时，完善代码得到要的结果
http://club.excelhome.net/thread-13973 ...

你给我发的这个就是根据清单匹配费率表“费率”然后费率乘本期应收的吧？

活在理想的世界

第一：空着的是什么意思？我可以在不动你原表的基础上帮你在内存里补全空值然后匹配。（因为我喜欢匹配不喜欢判断）
第二：我的自定义函数为什么不给鲜花？不给鲜花还让我再帮你一次？凭什么？

第三：我只等你到7点。

活在理想的世界

抱歉，我不等你了，我要走了。

别忘了给我鲜花。

Chip_Kenny

1. Function zz(rng As Range)
   
2. With CreateObject("vbscript.regexp")
   
3.     .Pattern = "\S+[\s]?\w+"
   
4.     zz = .Replace(rng.Value, "")
   
5. End With
   
6. End Function

复制代码