学习VBA，报表做到飞 第四章 正则表达式 4.5 Replace与Test
yund56 2025-03-18 23:46 11 浏览
第四章 正则表达式
4.5 Replace与Test
在上一节“正则表达式的代码格式”里，我们了解了正则表达式的Execute方法的使用，现在就让我们通过一个案例来了解一下正则表达式的另外两个方法Replace与Test的使用。
小程序：
把下表左列中的联系方式提取出来，填入“联系方式”栏，其余内容填入“个人简介”栏。如果没有联系方式，则填“无”。
联系方式 | 个人简介 | |
钱大6498316，学生 | ||
赵二5678346，个体工商户 | ||
王小虎2395799，老师 | ||
李三自由职业者 |
Sub replace与test()
Dim reg As New RegExp
With reg
.Global = True
.Pattern = "\d+"
For Each ss In Range("a2", Cells(Rows.Count, 1).End(xlUp))
If .Test(ss) Then
Set 结果 = .Execute(ss)
ss.offset(0, 1) = 结果(0)
ss.offset(0, 2) = .replace(ss, "")
Else
ss.offset(0, 1) = "无"
ss.offset(0, 2) = ss
End If
Next
End With
End Sub
首先用Test方法测试单元格的内容是否能够匹配成功。如果成功返回True，把匹配到的内容填入“联系方式”栏，再用replace方法把匹配到的结果替换为空（这里的用法与VBA的Replace用法不同，在本章第3节已有介绍）。如果匹配不成功返回False，“联系方式”栏填“无”，把单元格内容填到“个人简介”栏。最后得到如下结果：
联系方式 | 个人简介 | |
钱大6498316，学生 | 6498316 | 钱大，学生 |
赵二5678346，个体工商户 | 5678346 | 赵二，个体工商户 |
王小虎2395799，老师 | 2395799 | 王小虎，老师 |
李三自由职业者 | 无 | 李三自由职业者 |
往期精彩回顾：
学习VBA，报表做到飞 第四章 正则表达式 4.4 正则表达式的代码格式
学习VBA，报表做到飞 第四章 正则表达式 4.3 正则表达式的方法和属性
学习VBA，报表做到飞 第四章 正则表达式 4.2 正则表达式的元字符和量词
我是云飞扬，职场财会人员，愿与大家分享表格制作和数据统计分析的技巧与方法，希望大家的工作更便捷，更轻松！
相关推荐
- 如何在Office 中编辑 PDF?附详细化步骤
-
PDF很受欢迎，因为它能在不同的设备和操作系统上仍然保持原有格式。但是，这也意味着直接更改PDF文件比其他格式更难更复杂。值得庆幸的是，Microsoftoffice和UPDF帮你解决这一难题。一...
- 我的 Windows 装机必备软件清单
-
今天给大家分享下我的装机必备软件，都是用了好多年的软件神器。靠谱、好用、无广告，Windows电脑必备软件，收藏这一篇就够了！01.浏览器王者：Chromehttps://www.google.c...
- Docnet Core 是一个轻量级、高性能的 .NET PDF 操作库
-
DocnetCore介绍DocnetCore是一个轻量级、高性能的.NETPDF操作库，依托于PDFium渲染引擎，提供强大的PDF文档解析、渲染、操作等功能。它完全支持.NET...
- 分享三款好用的PDF编辑软件，轻松处理PDF
-
作为一名需要经常和PDF文件打交道的工作者，我来分享一下几款好用的PDF编辑软件，并详细分析了它们的优缺点，希望能帮你找到合适的工具。1.AdobeAcrobatDC作为PDF格式的发明者，Ado...
- PDF文档创建工具软件:novaPDF OEM 11.9 Build 432 for Windows
-
novaPDFOEM是一款实用高效的软件，从头开始设计，让您尽可能轻松地在应用程序中添加PDF打印功能。换句话说，这个实用程序是专门为应用程序开发人员设计的，可以直接在程序安装程序中集成为PDF打印...
- 线性表顺序存储结构求集合的并，交，补，差(源代码附上 超详细)
-
一：算法分析1）用数组A，B，C，E表示集合。假定A={1,3，4，5，6，7，9，10}, B={2，,3，4，7，8，10},E={1,2，3，4，5，6，7，8，9，10}, 输入数组A...
- 分享一套SpringBoot开发博客系统源码，包含完整开发文档和视频
-
基本信息项目名称：eblog摘要：eblog是一个基于Springboot2.1.2开发的博客学习项目，为了让项目融合更多的知识点，达到学习目的，编写了详细的从0到1开发文档。主要学习包括：自定义Fr...
- 通达信指标合集〔源码齐全〕
-
很多朋友问到我哪款指标好用，这里我说一下，之所以有很多不同的指标是因为我们在针对不同的盘面情况的时候使用的指标是不同的，我给到的指标一般来讲就目前的环境来讲都是比较适合的，今天我就把我平时自己常用的指...
- 巅峰对决!Spring Boot VS .NET 6
-
SpringBoot和ASP.NETCore都是企业中流行的Web框架,对于喜欢C#的人会使用ASP.NETCore,而对于Java或Kotlin等基于JVM的语...
- 在asp.net core 中控制访问权限的方法
-
Intro#由于项目需要，需要在基于asp.netmvc的Web项目框架中做权限的控制，于是才有了这个权限控制组件，最初只是支持netframework，后来dotnetcore2.0...
- ASP.NET是否无生存之地?
-
ASP.NET，这个已经很久的技术，总觉得已经被时代淘汰，我们公司是一个10人小公司，几个十年十五年的项目还是用ASP.NET开发的。这两年由于客户的需求变化，我们公司也顺势开始对这些项目重新开发，改...
- Spring Boot + Vue.js 实现前后端分离(附源码)
-
作者：梁小生0101链接：juejin.im/post/5c622fb5e51d457f9f2c2381SpringBoot+Vue.js前后端涉及基本概念介绍，搭建记录，本文会列举出用到环...
- ASP.NET Core 中的 Mapster 使用入门教程
-
在本文中，我们将学习如何在ASP.NETCore应用程序中使用Mapster。首先，我们将了解Mapster是什么以及如何将其安装到.NETCore应用程序中。然后，我们将在使用...
- Asp.net常用方法及request和response-a
-
asp.net教程asp.net常用方法:1、Request.UrlReferrer请求的来源，可以根据这个判断从百度搜的哪个关键词、防下载盗链、防图片盗链，可以伪造(比如迅雷)。(使用全局一般处理...
- ASP.NET Core使用功能开关控制路由访问
-
前言在前面的文章，我们介绍了使用Middleware有条件地允许访问路由（《ASP.NETCore使用Middleware有条件地允许访问路由》）。而对于一些试验性的功能，我们并不希望用密码去控制是...
- 一周热门
- 最近发表
- 标签列表
-
- filter函数js (37)
- filter函数excel用不了 (73)
- 商城开发 (40)
- 影视网站免费源码最新版 (57)
- 影视资源api接口 (46)
- 网站留言板代码大全 (56)
- java版软件下载 (52)
- java教材电子课本下载 (48)
- 0基础编程从什么开始学 (50)
- java是用来干嘛的 (51)
- it入门应该学什么 (55)
- java线上课程 (55)
- 学java的软件叫什么软件 (38)
- 程序开发软件有哪些 (53)
- 软件培训 (59)
- 机器人编程代码大全 (50)
- 少儿编程教程免费 (45)
- 新代系统编程教学 (61)
- 共创世界编程网站 (38)
- 亲测源码 (36)
- 三角函数积分公式表 (35)
- 函数的表示方法 (34)
- 表格乘法的公式怎么设置 (34)
- sumif函数的例子 (34)
- 图片素材 (36)