时间:2020-08-08 13:47作者:admin来源:未知人气:510我要评论(0)
从字符串中提取或者删除汉字是在我们日常使用Excel中时常遇到的问题,这里提供一个从网络上收集而来的提取或者删除汉字的自定义函数,方便大家日常使用。
'---------------------------------------------------
'功能:提取字符串中汉字或者非汉字
'说明:Rg原字符串或单元格
'Et为True时,提取汉字,否则为提取非汉字
'发布:http://www.office26.com
'---------------------------------------------------
FunctionExtractHanzi(RgAsVariant,_
OptionalEtAsBoolean=True)AsString
WithCreateObject("VBSCRIPT.REGEXP")
.Global=True
IfEtThen
.Pattern="[^u4e00-u9fa5]"
Else
.Pattern="[u4e00-u9fa5]"
EndIf
ExtractHanzi=.Replace(Rg,"")
EndWith
EndFunction
实际应用:
作为一个函数使用在工作表的公式中,如:单元格A1的值为"ExcelFans.com欢迎你",然后我们在A2中键入公式=ExtractHanzi(A1),显示结果为:欢迎你:
把它用到其他的代码中,以下代码就是去除所选定区域中的所有汉字
'---------------------------------------------------
'功能:删除选定区域中所有汉字
'发布:http://www.office26.com
'---------------------------------------------------
SubDelAllHanzi()
DimRgAsRange,Rg1AsRange
DimxAddressAsString
OnErrorResumeNext
xAddress=ActiveSheet.UsedRange.Address
SetRg=Application.InputBox("请选择一个区域:","office26.com",xAddress,,,,,8)
IfRgIsNothingThenExitSub
SetRg=Application.Intersect(Rg,ActiveSheet.UsedRange)
IfRgIsNothingThenExitSub
ForEachRg1InRg
Rg1=ExtractHanzi(Rg1,False)
Next
EndSub
相关阅读 Excel有哪些常用的数学函数?Excel取消表格中虚线的两种方法Excel最常见的「错误值」,这些含义你都知道吗?实现快速找出Excel表格中两列数据不同内容的3种方法!如何利用Excel一键提取身份证的这些重要信息,公式直接套用!Excel如何制作动态红绿灯,工作可不要亮红灯哦Excel身份证号大探索excel如何根据日期按月汇总计算公式Excel浪漫表白公式,发给心仪的她/他Excel表格如何自动求和
热门文章 excel 两表数据快速对比,高手都是这样做,四种方法随你选.xlsm是什么文件格式,以及xlsm文件怎么打开的方法excel if函数如何多个条件并列excel中计算加权平均数的公式:用SUMPRODUCT和SUM函数计算加权平均
最新文章
Excel有哪些常用的数学函数?Excel取消表格中虚线的两种方法
Excel最常见的「错误值」,这些含义你都知道吗?实现快速找出Excel表格中两列数据不同内容的3种方法!如何利用Excel一键提取身份证的这些重要信息,公式直接套用!Excel如何制作动态红绿灯,工作可不要亮红灯哦
人气排行 excel 两表数据快速对比,高手都是这样做,四种方法随你选.xlsm是什么文件格式,以及xlsm文件怎么打开的方法excel if函数如何多个条件并列excel中计算加权平均数的公式:用SUMPRODUCT和SUM函数计算加权平均excel中IF条件函数10大用法完整版,全会是高手,配合SUMIF,VLOOKUPexcel中COUNTIFS函数9种高级用法详解,条件统计重复值,告别加班涨工如何解除Excel VBA工程密码excel 如何根据身份证号码提取户籍所在省份地区函数公式
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>