如何用VBA中的正则表达式把字符串中1个或者连续多个空格替换成一个Tab键?

作者：绿色风分类：时间：2022-08-17 浏览：71

楼主 wise	Q: 如何用VBA中的正则表达式把字符串中1个或者连续多个空格替换成一个Tab键? 由于字符串中连续的空格的个数不太确定，如果我们逐个字符去分析的话，也是比较麻烦的，但如果用正则去实现，则简单的多。这也是一个典型的适合用正则解决的问题。解决方式如下： A:ALT+F11→插入模块→在模块中输入以下代码: Sub MyTest() Dim RegEx As Object Dim str As String Set RegEx = CreateObject("vbscript.regexp") str = "I love exceltip !" With RegEx .Global = True .Pattern = "\s+" End With MsgBox RegEx.Replace(str, Chr(9)) Set RegEx = Nothing End Sub
2楼 bluexuemei	学习 ~
3楼 chenlifeng	很好用，我已经改成了自定义函数： Function 改连续空格为一个(病人 As String) As String Dim RegEx As Object Set RegEx = CreateObject("vbscript.regexp") With RegEx .Global = True .Pattern = "\s+" End With 改连续空格为一个 = RegEx.Replace(病人, Chr(32)) Set RegEx = Nothing End Function

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表