提取单元格内特征数字串

sayhi95

新手路上 发表于 2019-6-27 15:48
你的ID都带95也不见得你是一个95后(*^▽^*)

也是，就像你的ID是新手结果却是一个倒拐子长毛的选手一样，哈哈~

zuodaoao

新人一枚，进来看各位老师们的回复，慢慢积累自己的ECXEL知识，谢谢各位老师们的回答

tcdatongye

1. Sub dfs()
   
2. Dim reg As New RegExp
   
3. reg.Global = True
   
4. reg.IgnoreCase = True
   
5. reg.Pattern = "(?:^|[^\w-])((\d+-)+\d+)(?!\w)"
   
6. ss = "规格型号：100m号：83-56-7/产品编号：EDT000678-56-7/产品说明："
   
7. Set q = reg.Execute(ss)
   
8. For Each j In q
   
9. Debug.Print j.SubMatches(0)
   
10. Next
    
11. End Sub
    

复制代码

sayhi95 发表于 2019-6-27 14:22
VBA参考

对这种极端的例子比较好

VBA774337781

sayhi95 发表于 2019-6-27 14:22
VBA参考

感谢春心老师，没想到后来还是用到了代码，然后也知道了这东西叫正则表达式，哈哈还有好多东西要学

ggmmlol

用我的正则表达式小工具——【超级查找替换】加载宏搞定，免写代码了：

查找内容：
(\d+-\d\d-\d\b)|.
替换为：
$1

VBA774337781

ggmmlol 发表于 2019-12-6 16:11
用我的正则表达式小工具——【超级查找替换】加载宏搞定，免写代码了：

查找内容：

超厉害哈哈，果然正则表达式很牛