提取符合特定规则的文本，我用“万能正则表达式”！

loyxqing

学习下，准备用上

ykcbf1100

做个记号。

125675117

有没有办法定位合并单元格，并把合并单元格标记底色？

125675117

ggmmlol 发表于 2018-8-16 17:02
要想知道“万能正则表达式”都能干什么，首先你要了解“正则表达式”能干什么。

至于冠以“万能”，就 ...

功能好用，操作复杂，最好整成一键提取

getheway

ggmmlol 发表于 2018-8-18 23:59
第四节：实例演示 提取手机号码

实例来源：

1. Sub 提取汉字_字母_数字()
   
2. Dim regEx As Object
   
3. Dim i As Integer
   
4. 
   
5. Set regEx = CreateObject("VBSCRIPT.REGEXP")
   
6. regEx.Pattern = "[^\u4e00-\u9fa5]+"
   
7. regEx.IgnoreCase = False
   
8. regEx.Global = True
   
9. For i = 1 To ActiveSheet.UsedRange.Rows.Count
   
10.    
    
11.     Cells(i, 5).Value = regEx.Replace(Cells(i, 1), "")
    
12. Next i
    
13. Set regEx = Nothing
    
14. End Sub
    

复制代码

请问，我想把这段提取电话号码的放在pattern这里，格式应该是什么样子的？为什么我直接复制到引号中间，刚好是剔除电话号码，而不是提取电话号码……（比如XX省XX市 13901111111 提取了XX省XX市，而不是139011111111）

cjh-01

谢谢分享，太强大了

weiyingde

fsq119 发表于 2018-8-18 13:21
借用楼主的Evaluate方法：
a = Evaluate(Chr(34) & REGREPLACE(s, "(\d)((e)+)(?=\d)", "$1"" & len(""$ ...

请测试，本人测试的结果是，你把所有匹配的“e”待替换成“”。

weiyingde

ggmmlol 发表于 2018-8-18 12:40
刚才回复时跨页了，提问的楼层应该是32楼，所以修改一下。

请试着对32楼的提问给出你的答案。

大侠请测试，我测试的结果是：2e3替换成了3，“2e”吞了。

HANERBABA

学习，谢谢大神