excel 自定义函数实现提取汉字

时间:2022-03-15 15:09:48 

 从字符串中提取或者删除汉字是在我们日常使用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),显示结果为:欢迎你:

excel 自定义函数实现提取汉字


把它用到其他的代码中,以下代码就是去除所选定区域中的所有汉字

'---------------------------------------------------

'功能:删除选定区域中所有汉字

'发布: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提取汉字
0
投稿

猜你喜欢

  • Win10 1909怎么退出安全模式?Win10 1909安全模式退出方法简述

    2023-11-13 08:33:55
  • 掌握 Word 中的两个高效操作技巧,按时下班靠自己

    2023-11-09 02:03:31
  • word单元格怎么设置调整列宽行高但是不影响相邻列?

    2023-07-19 19:24:37
  • WPS表格中给数据添加一个三维效果边框

    2023-08-03 11:26:27
  • 怎么把excel2007两个工作表垂直

    2023-11-24 20:30:02
  • Excel中进行文字边框与底纹的操作方法

    2023-12-14 02:13:50
  • word怎样设置图片格式不同

    2023-05-19 20:09:41
  • Excel 2019快速移动或复制工作表的4种方法

    2022-03-30 14:38:54
  • 如何使用Microsoft Word制作邀请函

    2022-02-07 01:15:47
  • Excel2007 批注添加.删除.打印批注

    2022-12-05 16:20:16
  • GridView数据复制到Excel中文乱码怎么办?

    2023-03-20 10:18:55
  • Win10专业版怎么打开本地组策略编辑器?

    2023-11-23 23:42:51
  • 服务没有及时响应启动或控制请求的解决办法(含Win10、Win7)

    2023-04-26 16:54:07
  • word字竖着怎么打

    2023-10-28 20:15:15
  • word表格两列互换

    2022-07-16 10:59:56
  • Word英文单词排版断行的技巧

    2023-12-01 23:31:18
  • 清除excel宏病毒 如何清除excel电子表格宏病毒

    2023-09-23 14:26:21
  • word怎么去掉横线?word删除横线方法介绍

    2022-07-10 06:33:11
  • iOS 14信息应用中的“提到”功能使用方法

    2023-10-17 05:41:43
  • 如何在Word 2013中调整行和段落空间?

    2023-07-16 23:29:25
  • asp之家 电脑教程 m.aspxhome.com