用Excel的VBA实现文本匹配与替换

在工作的过程中，有时候为了批量处理Excel，不可避免会写一些VBA小程序，而在规范数据格式方面，经常会用正则表达式：

以下是我自己经常会用到的小程序：

一、文本匹配

Function bTest(ByVal s As String, ByVal p As String) As BooleanDim re    Set re = CreateObject("VBScript.RegExp")

     re.IgnoreCase = False　'设置是否匹配大小写     re.Pattern = p     bTest = re.Test(s)End Function

二、文本替换

Function StrReplace(s As String, p As String, r As String) As String

Dim re    Set re = CreateObject("VBScript.RegExp")

    re.IgnoreCase = True    re.Global = True    re.Pattern = p    StrReplace = re.Replace(s, r)

End Function

当然，往往在实际的应用中，还要根据具体的情况去修改程序。

转载于:https://www.cnblogs.com/candyhuang/archive/2011/09/21/2184058.html

用Excel的VBA实现文本匹配与替换相关推荐

Excel使用vba高亮文本关键词
Excel使用vba高亮文本关键词 Sub Mydemo()Dim c As Range, n, m, l As IntegerDim str'initial setRange("A1:AZ ...
vba编程把纯文本转换成html,如何将一列文本与html标签转换为Excel中的vba格式文本...
我想知道如何使用VBA脚本将带有html标签的整列单元转换为格式化文本(基于这些标签).如何将一列文本与html标签转换为Excel中的vba格式文本使用下列内容: Sub Sample() Dim ...
Excel 2003 VBA编程参考
Excel 2003 VBA编程参考关于作者 Paul Kimmel Paul Kimmel于1990年创立了Software Conceptions公司,并从那时开始设计和创建软件以及编写计算机图 ...
excel中用正则匹配_Excel利用正则表达式匹配和替换内容
近期使用Excel比较多,有一些匹配和替换的内容.平常涉及的比较简单,也就使用If或者VLOOKUP之类的函数.这次使用到正则表达式和VBA,在此记录一下,以防忘记. 打开文件一定要选择EXCEL打开 ...
Excel与VBA编程中的常用代码
Excel与VBA编程中的常用代码用过VB的人都应该知道如何声明变量,在VBA中声明变量和VB中是完全一样的! 使用Dim语句 Dim a as integer '声明A为整形变量 Dim a '声 ...
EXCEL破解VBA密码（测试有效）
EXCEL破解VBA密码(测试有效) 准备 1)待破解的EXCEL文件(通常可能是.xlsm)格式 2)Notepad++ 开始步骤一将待破解.xlsm文件另存为97-2003工作簿(*.xls) ...
在Excel中根据条件查找匹配多个值
在Excel中根据条件查找匹配多个值(vlookup只能匹配第一个值) 之前在深圳的时候就被问过这个问题,今天又遇到同事在问,索性记录在此. 如下图,根据E列的值,在A列中查找对应的数据,输出匹配行上 ...
oracle取括号内数字,怎么把excel中一列文本中括号里的数字弄出来啊
公告: 为响应国家净网行动,部分内容已经删除,感谢读者理解. 话题:怎么把excel中一列文本中括号里的数字弄出来啊回答:=MID(A1,FIND(＂(＂,A1)+1,FIND(＂)＂,A1)-FIN ...
excel下拉菜单自动匹配_自动将新项目添加到Excel数据验证下拉菜单
excel下拉菜单自动匹配 There's a sample Excel workbook on my Contextures website that uses a bit of Excel VBA ...

用Excel的VBA实现文本匹配与替换

用Excel的VBA实现文本匹配与替换相关推荐

最新文章

热门文章