查找excel特定列单元格中的数字,并替换成空,如“12.合计”处理后“合计”

问题:替换前单元格内存在很多数字序号,不便于复制使用

解决方法:

1、打开excel,选择宏——》随便起个名字——》录制宏——》直接停止录制

2、选择宏——》查看宏——》选中刚刚命名的宏,点击编辑按钮

3、将代码复制到宏默认方法框架内:

代码:

 Dim RegExp As Object
    Dim SearchRange As Range, Cell As Range
    
    '此处定义正则表达式
    Set RegExp = CreateObject("vbscript.regexp")
    RegExp.Pattern = "[0-9]\d*."
     
    '此处指定查找范围
    Set SearchRange = ActiveSheet.Range("H1:H299")
    
    '遍历查找范围内的单元格
    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, "")
        End If
    Next

4、修改代码中查找范围:

'此处指定查找范围
    Set SearchRange = ActiveSheet.Range("H1:H299")

5、修改代码中正则表达式:

RegExp.Pattern = "[0-9]\d*."

此处表示"."前任意位数的数字

6、替换后效果:

 

  • 2
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值