作者：绿色风
分类：
时间：2022-08-18
浏览：197
楼主
水星钓鱼 |
问题来源于- http://www.exceltip.net/forum.php?mod=viewthread&tid=52449
原帖用循环解决了，现在要求用正则表达式来完成。
为了测试方便，如图所示，假设数据在A1 单元格，且最后一个项目内容后面还有一个换行符，将每个项目的内容合并到与项目同一行，不同的项目分行显示，结果放在B1 单元格。要求：1. 只能用正则表达式来完成 2. 框架代码已经列出，除了框架代码以外的代码不能使用循环 3. 第一个回答正确的加技能分2分，其余答案视情况加分。
框架代码如下：- Sub RegExp()
- Dim Test As String
- Dim reg As Object
- Set reg = CreateObject("VBScript.RegExp")
- Test = Sheet1.Cells(1, 1)
- With reg
- '此处写您的代码
- End With
- End Sub
附件如下：
 正则表达式.rar
|
2楼
daveman |
.Global = True
.Pattern = "：\n(?=[^：]*\n)"
Range("e1").Value = .Replace(Range("a1").Value, "：") |
3楼
bluexuemei |
- Sub RegExp()
- Dim Test As String
- Dim reg As Object
- Set reg = CreateObject("VBScript.RegExp")
- Test = Sheet1.Cells(1, 1)
- With reg
- .Pattern = "(：)\n([^：]+\n)"
- .Global = True
- [b1] = .Replace(Test, "$1$2")
- End With
- End Sub
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一