excel利用正则匹配和替换指定内容

上班中, 突然接到电话, 屋里的上司大人发来个excel, 说要替换里面x-x-xxx列的内容为x栋x单元xxx. 大致表格如下, 原表格我就不发了

身为程序猿的我, 肯定第一就想到了 正则! 打开excel-开始-查找和替换, 我擦, 只能完全匹配和替换 比如一次只能替换1-1- -> 为1栋1单元 1-2- ->为1栋2单元..

虽然说慢了点, 终究是解决了问题!

为了解决问题而解决问题, 这可不是咱的风格, 因为这一个简单的需求实现的太不清爽了, 各种百度也没发现能直接查找和替换的方案, 😅.....简单的方法没找到, 却找到了个vb脚本写法, 记录下, 方便下次使用.

步骤一: 打开excel

步骤二: ALT+F11 打开VB窗口, 写入脚本, 执行

脚本内容:

java 复制代码
Private Sub RegExp_Replace()

    Dim RegExp As Object
    Dim SearchRange As Range, Cell As Range
    
    Set RegExp = CreateObject("vbscript.regexp")
    RegExp.Pattern = "(\d+)-(\d+)-(\d+)"
     
    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, "$1栋$2单元$3")
        End If
    Next

End Sub

虽然实现了, 但还是不太爽!

相关推荐
左师佑图2 小时前
综合案例:Python 数据处理——从Excel文件到数据分析
开发语言·python·数据分析·excel·pandas
SamDeepThinking9 小时前
EasyExcel 流式处理中实现末尾行过滤的技术方案
excel
小白学鸿蒙10 小时前
鸿蒙数据库表中的数据如何导出为Excel存到系统下载目录
数据库·excel·harmonyos
CodeCraft Studio11 小时前
MPP文件处理组件Aspose.Tasks教程:使用Python在Excel中打开MPP文件
python·ui·excel·csv·mpp·aspose·ms project
Python大数据分析@14 小时前
如何用 Python xlwings库自动化操作 Excel?
python·自动化·excel
老师可可14 小时前
成绩查询系统如何制作?
经验分享·学习·小程序·excel·学习方法
yanweijie031715 小时前
Excel(WPS表格)中多列去重就用Tocol+Unique组合函数
excel·wps
Jackiejin5261 天前
WPS表格选择性粘贴快捷键怎么使用?WPS如何给表格某一行都加上指定数字?
数据分析·excel·wps
办公解码器1 天前
Excel怎么将八位数字设置为日期格式?
excel
gis91 天前
批量地址解析坐标,支持WPS、EXCEL软件,支持导出SHP、GEOJSON、DXF等文件格式
excel·wps