EXCEL利用正则匹配去替换内容

最新推荐文章于 2023-11-08 17:04:10 发布

一只忧伤的数据猿

最新推荐文章于 2023-11-08 17:04:10 发布

阅读量1.4w

点赞数 3

本文链接：https://blog.csdn.net/weixin_42392293/article/details/88076212

版权

本文记录了一个项目中使用Excel进行正则匹配来包裹字段的操作过程。通过在Excel中插入宏代码实现批量替换，将特定列的字段用“【】”包围。首先确保使用Excel而非WPS，因为WPS不支持此功能。操作步骤包括打开文件、按ALT+F11进入VBA编辑器，然后编写并执行宏代码，最终实现字段的自动包裹。

摘要由CSDN通过智能技术生成

做项目过程中需要对某一列字段进行添加“【】”将字段包裹起来，因此上网查了EXCEL的正则匹配如何使用，在此记录一下，防止忘记。

打开文件一定要选择EXCEL打开，WPS目前没有发现该功能（平时使用也很少）。下面步入正题，打开EXCEL文件后。按住ALT+F11，右键文件选择“查看代码”，输入代码：

代码如下：

Private Sub RegExp_Replace()

    Dim RegExp As Object
    Dim SearchRange As Range, Cell As Range
    
    '此处定义正则表达式
    Set RegExp = CreateObject("vbscript.regexp")
    RegExp.Pattern = "^"
     
    '此处指定查找范围
    Set SearchRange = ActiveSheet.Range("A1:A99")
    
    '遍历查找范围内的单元格
    For Each Cell In SearchRange
        Set Matches = RegExp.Execute(Cell.Value)
        If Matches.Count >= 1 Then
            Set Match = Matches(0)
            Cell.Value = RegExp.Replace(Cell.Value,