作者：绿色风
分类：
时间：2022-08-18
浏览：145
楼主
wise |
Q: 如何用正则表达式把"020-123-4567"电话号码格式改成"(020) 123-4567"这种形式?
A:ALT+F11→插入模块→输入
- Sub test()
- Dim reg As Object, str As String
- str = "020-123-4567"
- Set reg = CreateObject("VBScript.RegExp")
- reg.Global = True
- reg.Pattern = "(\d{3})-(\d{3})-(\d{4})"
- Debug.Print reg.Replace(str, "($1) $2-$3")
- End Sub
$1、$2 和 $3 是正则表达式“反向引用”的示例。反向引用仅指可保存并重用的文本部分。查找三个“子匹配”：
1、一组 3 位数字
2、另一组 3 位数字
3、一组 4 位数字
提取第一个反向引用 ($1)，并将其放在括号中，留一个空格；然后插入第二个反向引用 ($2)，后面跟一个破折号；最后，添加第三个反向引用 ($3)。 |
2楼
DJ_Soo |
好了,这次是明白了! |
3楼
wise |
今晚抽空查资料弄懂这个东西的。
有时候还真的不知道$1、$2这些东西怎么出来的 |
4楼
DJ_Soo |
我已经懂了,多谢7仔啊~~ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一