Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具,再加上成功的市场营销,使Excel成为最流行的个人计算机数据处理软件。 ?从字符串中提取或者删除汉字是在我们日常使用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整体界面趋于平面化,显得清新简洁。流畅的动画和平滑的过渡,带来不同以往的使用体验。 |
温馨提示:喜欢本站的话,请收藏一下本站!