姓名正则支持中英文_给你的Excel增加正则处理函数，简直如虎添翼

最新推荐文章于 2021-07-30 17:12:32 发布
最新推荐文章于 2021-07-30 17:12:32 发布
阅读量197 收藏
点赞数
文章标签： 姓名正则支持中英文
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_35651191/article/details/113410915
版权

VBA Excel 正则表达式 数据处理 Pandas
关键词由CSDN通过智能技术生成

cc6885271ca16d82203cce666ff85035.png

小小明，「凹凸数据」专栏作者，Pandas数据处理专家，致力于帮助无数数据从业者解决数据处理难题。

凹凸们，大家好

我们都知道Pandas里支持正则替换比较舒服，但是Excel却没有一个可以支持正则的函数！！！

不过我发现借助VBA就可以在Excel实现正则的抽取、搜索和替换，简直如虎添翼有没有~今天我要给大家分享一个我自己用VBA编写的神器，让你的Excel能够直接支持正则。看完全文，如果有收获，别忘了点赞支持一下

先看看效果吧：

正则抽取效果

对于一列数据：

中楼层(共9层)|2007年建|1室1厅|24.78平米|北
地下室|2014年建|1室0厅|39.52平米|东
底层(共2层)5室3厅|326.56平米|东南西北

我们想提取出其中的 层、楼层数、建筑年份、户型、大小和方向，我们可以选中一排的六个单元格，然后输入公式：

=re_extract(A1,"([^|(]+)(?:\(共(\d+)层\))?(?:\|(\d{4})年建\|)?(\d室\d厅)\|([\d.]+)平米\|([东南西北]+)")

然后按下Ctrl+shift+Enter(表示数组公式)，即可得到如下结果：

中楼层 9 2007 1室1厅 24.78 北
地下室 0 2014 1室0厅 39.52 东
底层 2 0 5室3厅 326.56 东南西北

效果如下：

45a7bde1aabbbe5fd67f987d36fbfc05.png

?:表示当前括号内部是非捕获组。

再看一个简单的例子，对于一列数据：

小五87
张三丰98
东方不败76
杨过88

我们想将姓名和成绩分开，可以选中一排的二个单元格，然后输入公式：

=re_extract(A1,"(.+?)(\d+)")

然后按下Ctrl+shift+Enter(表示数组公式)，即可得到如下结果。

效果：

0c29b917ab45f2f5ca3941947851a2f0.png

正则搜索效果

对于一列数据：

联想/LENOVO
狮乐/SHILE
Midea/美的
联想/LENOVO
松下/Panasonic
红叶/RedLeaf
纳米亚
富士施乐/FujiXerox
佳印
佳能/CANON
TCL

我们想提取其中的中文品牌，对于没有中文的才用英文，可以输入公式：

=re_find(A1,"[\u4e00-\u9fa5]+|^\w+$")

最终结果：

b5a7d8eafd93c6ef58a9bb7618f86368.png

当然正则搜索也支持数组公式，再看一个例子，对于下面一列数据：

ENBCUCPFunction=280419,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=279719,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280196,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280198,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280219,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280228,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280242,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=279519,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=279619,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=279633,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280032,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280382,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=279731,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280019,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=279819,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280319,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280191,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280194,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=460-01_280192,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280197,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280199,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=279419,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=279488,CULTE=1,RATFreq=1,EutranFreqLTE=18

我们需要取出所有的ENBCUCPFunction/CULTE/RATFreq/EutranFreqLTE四个字段对应的值，可以选中一排的四个单元格，然后输入公式：

=re_find(A1,"[-_\d]+")

即可得到结果：

280419 1 1 18
279719 1 1 18
280196 1 1 18
280198 1 1 18
280219 1 1 18
280228 1 1 18
280242 1 1 18
279519 1 1 18
279619 1 1 18
279633 1 1 18
280032 1 1 18
280382 1 1 18
279731 1 1 18
280019 1 1 18
279819 1 1 18
280319 1 1 18
280191 1 1 18
280194 1 1 18
460-01_280192 1 1 18
280197 1 1 18
280199 1 1 18
279419 1 1 18
279488 1 1 18

效果：

207cd6447178884a350e2b852b4996cb.png

正则替换效果

对于下面这列数据，我们希望仅保留EutranFreqLTE对应的值，多个值用;拼接：

ENBCUCPFunction=280419,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=279719,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280196,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280198,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280219,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280228,CULTE=1,RATFreq=1,EutranFreqLTE=18;ENBCUCPFunction=280228,CULTE=1,RATFreq=1,EutranFreqLTE=19
ENBCUCPFunction=280242,CULTE=1,RATFreq=1,EutranFreqLTE=18;ENBCUCPFunction=280242,CULTE=1,RATFreq=1,EutranFreqLTE=19
ENBCUCPFunction=279519,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=279619,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=279633,CULTE=1,RATFreq=1,EutranFreqLTE=18;ENBCUCPFunction=279633,CULTE=1,RATFreq=1,EutranFreqLTE=19
ENBCUCPFunction=280032,CULTE=1,RATFreq=1,EutranFreqLTE=18;ENBCUCPFunction=280032,CULTE=1,RATFreq=1,EutranFreqLTE=19
ENBCUCPFunction=280382,CULTE=1,RATFreq=1,EutranFreqLTE=18;ENBCUCPFunction=280382,CULTE=1,RATFreq=1,EutranFreqLTE=19
ENBCUCPFunction=279731,CULTE=1,RATFreq=1,EutranFreqLTE=18;ENBCUCPFunction=279731,CULTE=1,RATFreq=1,EutranFreqLTE=19
ENBCUCPFunction=280019,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=279819,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280319,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280191,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280194,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=460-01_280192,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280197,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=280199,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=279419,CULTE=1,RATFreq=1,EutranFreqLTE=18
ENBCUCPFunction=279488,CULTE=1,RATFreq=1,EutranFreqLTE=18;ENBCUCPFunction=279488,CULTE=1,RATFreq=1,EutranFreqLTE=19

可以输入公式：

=re_sub(A1,".+?(\d+)(;|$)", "$1$2")

得到结果：

18
18
18
18
18
18;19
18;19
18
18
18;19
18;19
18;19
18;19
18
18
18
18
18
18
18
18
18
18;19

效果：

9d7b7dca8ad28286cddd1fce5a7acd65.png

再举个例子，对于下面这列数据，想去掉所有的非中文字符和被括号括起来的字符：

中山-Z-古镇华艺集团路口-280308-1-2-OF
中山-ZD-古镇华艺集团路口-280308-2-1-OF
中山-Z-古镇华艺集团路口-280308-2-2-OF
中山-ZD-横栏富横东路-280227-1-1-OF
中山-Z-横栏富横东路-280227-1-2-OF
中山-ZD-横栏富横东路-280227-2-1-OF
中山-Z-横栏富横东路-280227-2-2-OF
中山-ZD-横栏富横东路-280227-3-1-OF
中山-Z-横栏富横东路-280227-3-2-OF
中山-Z-三角电信营业厅(室分QCELL)-278903-1-1-MF
中山-Z-三角高平营业厅(室分QCELL)-278902-1-1-MF
中山-ZD-横栏中艺重工-280009-1-1-OF
中山-ZD-横栏中艺重工-280009-2-1-OF
中山-ZD-横栏中艺重工-280009-3-1-OF
中山-Z-横栏三沙商富路-279966-1-2-OF
中山-ZD-横栏三沙商富路-279966-1-1-OF
中山-ZD-横栏新丰物流-279974-1-1-OF
黄圃奥杰斯电器LTGX_3_F

输入一下公式：

=re_sub(A1,"[A-Z0-9_\-]+|\(.*\)", "")

即可得到：

中山古镇华艺集团路口
中山古镇华艺集团路口
中山古镇华艺集团路口
中山横栏富横东路
中山横栏富横东路
中山横栏富横东路
中山横栏富横东路
中山横栏富横东路
中山横栏富横东路
中山三角电信营业厅
中山三角高平营业厅
中山横栏中艺重工
中山横栏中艺重工
中山横栏中艺重工
中山横栏三沙商富路
中山横栏三沙商富路
中山横栏新丰物流
黄圃奥杰斯电器

效果：

9fadb45bc53115d50447a3344f2776f8.png

用VBA实现上面三个函数并让其自动加载

好了，演示完效果，我们现在来看看如何开发这三个函数吧。

首先打开excel软件，点击开发工具->Visual Basic(或者直接按快捷键Alt+F11)，打开VBA的编辑器:

6bdc01cd71e9b3a6cb692d7d31513fca.png

右键单击当前工作薄对象插入模块：

bf0801c2161964b03f6617e091846285.png

在模块中插入以下代码：

Option Explicit

Public Function re_sub(sText As String, pattern As String, repl As String)
    Dim oRegExp As Object
    Set oRegExp = CreateObject("vbscript.regexp")
    With oRegExp
        .Global = True 'True表示匹配所有, False表示仅匹配第一个符合项
        .IgnoreCase = False '区分大小写
        .pattern = pattern
        re_sub = .Replace(sText, repl)
    End With
End Function

Public Function re_find(sText As String, pattern As String)
    Dim oRegExp As Object, match As Object, matches As Object
    Set oRegExp = CreateObject("vbscript.regexp")
    With oRegExp
        .Global = True 'True表示匹配所有, False表示仅匹配第一个符合项
        .IgnoreCase = True '不区分大小写
        .pattern = pattern
        Set matches = .Execute(sText)
    End With

    Dim d As Object
    Set d = CreateObject("Scripting.Dictionary")
    For Each match In matches
        d.Add match, Null
    Next
    re_find = d.keys
End Function


Public Function re_extract(sText As String, pattern As String)
    Dim oRegExp As Object, match As Object, matches As Object, i As Integer
    Set oRegExp = CreateObject("vbscript.regexp")
    With oRegExp
        .Global = True 'True表示匹配所有, False表示仅匹配第一个符合项
        .IgnoreCase = True '不区分大小写
        .pattern = pattern
        Set matches = .Execute(sText)(0).submatches
    End With

    Dim d As Object
    Set d = CreateObject("Scripting.Dictionary")
    For i = 0 To matches.Count - 1
        d.Add matches(i), Null
    Next
    re_extract = d.keys

End Function
96620632dd25a55248437447fc1b807f.png

然后按下Ctrl+S保存：

0cf821a2151ae1e8ab266f36e2408916.png

保存在个人宏工作簿：

C:\Users\{userName}\AppData\Roaming\Microsoft\Excel\XLSTART\

对于家庭和学生版2016，个人宏工作簿在：

C:\Users\{userName}\AppData\Local\Packages\Microsoft.Office.Desktop_8wekyb3d8bbwe\LocalCache\Roaming\Microsoft\Excel\XLSTART

{userName}表示你当前的用户名。

格式为xlam，文件名无所谓。

a9bfcf72e1afed444f91ca2d545bc9bf.png

然后在这个电脑的任何时候，任何地方打开excel软件都可以直接使用上面开发好的正则处理函数了！

正则高级语法相关资料

非捕获组

功能：让某个圆括号只用于分组，而不捕获其中的内容。

方法：将(内容)改为(?:内容)

67e70cf95f95259657e4918eba7ff081.png
bb8465f986dcae78ef938b0b2ee10403.png

环视

(?=abc)是正则中表示位置的语法，用于表示一个位置，表示当前位置的右边必须是abc字符而不会匹配abc本身。

4a1c2a89e420669364adef4d232f2195.png

获取捕获组

c2cf01b7460ec3039201ec1cc1dbd97e.png

完结，撒花！

干货分享，求个三连~

660916a1b0a43c89aabea32827caa5c8.png

后台回复关键词「进群」，即刻加入读者交流群~

3e7113ba6b3f65cdaf90bac954ab1fd9.gif

“在看”和“点赞”是对文章最好的支持 ec9773e7e47c7d2c1b8e77e5316e07fa.gif

Zero601
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
正则表达式同时匹配中英文及常用正则表达式
01-19
匹配中文:[\u4e00-\u9fa5] 英文字母:[a-zA-Z] 数字:[0-9] 匹配中文，英文字母和数字及_: ^[\u4e00-\u9fa5_a-zA-Z0-9]+$ 同时判断输入长度： [\u4e00-\u9fa5_a-zA-Z0-9_]{4,10} ^[\w\u4E00-\u9FA5\uF900-\uFA2D]*$ 1、一个正则表达式，只含有汉字、数字、字母、下划线不能以下划线开头和结尾： ^(?!_)(?!.*?_$)[a-zA-Z0-9_\u4e00-\u9fa5]+$ 其中： ^ 与字符串开始的地方匹配 (?!_)　　不能以_开头 (?!.*?_$)　　不能以
验证中文和英文姓名 正则表达式
qq_29307283的博客
09-11 9352
出处：https://blog.csdn.net/kekekeqi/article/details/80881718 参考上面链接文章，以访丢失，再次粘贴一次 ^([\u4e00-\u9fa5]{2,20}|[a-zA-Z.\s]{2,20})$ 姓名长度必须为2-20个字符 /** * 1.可以是中文 2.可以是英文，允许输入点（英文名字中的那种点）， 允许输入空格 3.中文和英文不能同时出...
JavaScript 正则匹配中英文姓名
Z_ammo的博客
12-07 4863
工作中突然想给姓名输入框加入正则匹配的验证，以防止用户输入的姓名比网络昵称还奇葩，结果还真费了不少功夫。 首先我们确认规则： ①中英文文字不能混杂 ②汉字不能夹杂任何特殊字符和空格（如果要兼容少数民族的姓名的话可以参考英文的匹配写法） ③英文只能夹杂空格，且不能在开头结尾 中文的名称规范很简单： let reg = /^[\u4e00-\u9fa5]+$/; 英文的名称规范就相对复...
正则表达式 - 中文、英文姓名匹配
牧码的博客
07-30 5483
中文姓名长度 ≥ 2个字符，≤ 200个字符。可包含汉字、“●”（这玩意都不知道怎么打出来的…） 字符间距不支持空格，不允许有“●”以外的其他特殊字符，不允许有数字 英文姓名长度 ≥ 1个字符，≤200个字符。可包含字母、数字、括号、字符间支持一个空格、“.”、“●”、“-” 中英文姓名匹配 下面两行差别于，中文名字中的● 带● ^(?:[\u4e00-\u9fa5]+)(?:●[\u4e00-\u9fa5]+)*$|^[a-zA-Z0-9]+\s?[\.·\-()a-zA-Z]*[...
正则表达式匹配中英文姓名
五花漏的博客
07-07 5513
匹配2-4个汉字的中文名 /^[\u4E00-\u9FA5]{2,4}$/ let name1 = '张'; let name2 = '张三'; let name3 = '李四一'; let name4 = '东方不败'; let name5 = '东方不败一'; console.log(/^[\u4E00-\u9FA5]{2,4}$/.test(name1)) console.log(/^[\u4E00-\u9FA5]{2,4}$/.test(name2)) console.log(/^
gcv.rar_GCV正则化参数_正则化 matlab_正则化函数_正则化工具箱_正则参数
07-14
在使用`gcv`函数时，你需要先定义正则化参数的集合，然后将其传递给函数，通常会结合其他函数如`lasso`或`ridge`来构建模型。例如： ```matlab lambda = logspace(-3, 3, 100); % 定义正则化参数范围 mdl = lasso(X...
支持正则表达式的Excel_v100_220415A
04-22
在传统的Excel中，我们通常依赖于内置函数来处理数据，但有了正则表达式的支持，用户可以执行更复杂、更灵活的数据处理任务。 描述中的链接指向了一篇CSDN博客文章，该文章详细介绍了如何在Excel中使用正则表达式。...
php正则preg_replace_callback函数用法实例
10-24
主要介绍了php正则preg_replace_callback函数用法,实例分析了preg_replace_callback函数进行正则替换的相关技巧,需要的朋友可以参考下
tikhonov.zip_L曲线正则化_Tikhonov 正则化_Tikhonov正则化_tikhonov_正则化
07-15
Tikhonov正则化是通过在目标函数中添加一个正则项（通常是模型参数的平方和）来限制模型复杂度，从而避免过拟合。这一正则项通常与λ（正则化参数）相乘，λ的选择对于模型性能至关重要。L曲线正则化是一种实用的...
tikhonov吉洪诺夫正则化.zip_MTR_Tikhonov 正则化_tikhonov_吉洪诺夫_正则化
07-15
吉洪诺夫正则化算法 适合解决病态问题 基于Markov径向基函数的MTR算法
Excel中的match函数
08-21
EXCEL中的Match函数，非常好用的函数。
js验证中英文名的正则表达式的方法
07-20
var patten = "([\\u4e00-\\u9fa5]{1}[\\u4e00-\\u9fa5\.·。]{"+min+","+max+"}[\\u4e00-\\u9fa5]{1}$)|([a-zA-Z]{1}[a-zA-Z\\-]{"+min+","+max+"}[a-zA-Z]{1}$)";
中英文姓名正则表达式
huhuhuja
01-11 2030
letreg=/^[\u0391-\uFFE5a-zA-Z·&\\s]+$/;
史上最全的正则表达式-匹配中英文、字母和数字
热门推荐
杨先森的博客
08-29 46万+
在做项目的过程中，使用正则表达式来匹配一段文本中的特定种类字符，是比较常用的一种方式，下面是对常用的正则匹配做了一个归纳整理。 1、匹配中文:[\u4e00-\u9fa5] 2、英文字母:[a-zA-Z] 3、数字:[0-9] 4、匹配中文，英文字母和数字及下划线：^[\u4e00-\u9fa5_a-zA-Z0-9]+$ 同时判断输入长度： [\u4e00-\u9fa5_a-zA-Z0-9_...

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

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

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值