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)，显示结果为：欢迎你：
把它用到其他的代码中，以下代码就是去除所选定区域中的所有汉字
'---------------------------------------------------
'功能：删除选定区域中所有汉字
'发布：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 自定义函数实现提取汉字的下载地址：
0
投稿猜你喜欢
在Word文档中编辑各种论文时，我们通常都会需要引用一些参考文献，或者是添加一些注释信息。这种情况下就会需要使用到脚注和尾注。如果我们需要更- 对于插入到wps文字中的表格，我们一般需要在其中填充序号，那么，怎样在wps文字中设置填充表格序号，对于平时少用wps的朋友就有些困难了，下
- excel的公式应用十分强大，单元格的引用分为绝对引用和相对引用，搞清楚了它们的关系，将会极大地提高工作效率。今天，小编就教大家在Excel
- 下面是win10安全模式修复系统的步骤：1.电脑开机后，等待直到徽标(如下所示)出现，接着按住电源按钮强制关闭电源。2.再次打开，显示徽标，
- 在excel表格中打印时，有时一些内容会溢出打印页面，但是我们想在同一页同显示，应该怎么设置呢?下面随小编一起来看看吧。excel内容打印在
- 合同是生活中非常普遍的一种约定形式，如果忘记到期时间会引起不必要的麻烦。今天我们就来分享一下在Excel中如何设置合同到期自动提醒？1、当前
- 我们在使用WPS文字的时候，常常会遇到这样的问题：当文字占满整页的时候，文档常常会多出一页空白页的现象。如下图所示：遇到这种情况，比较简单的
- 很多时候，我们的一些电脑管家或者电脑助手都总会显示内存过大，需要我们及时清理。其实这一种提示中的内存过大，不是指我们的电脑中的内存不足了。而
- 很多Win7用户反映遇到程序无法打开的问题，在打开某个程序时弹出系统错误的窗口，提示LIBEAY32.DLL丢失无法启动程序。这是怎么回事?
- 有时候我们可以通过蓝牙让手机和电脑相连，但是前提条件必须你的电脑支持蓝牙功能。一般台式电脑基本上都没有蓝牙功能，支持蓝牙功能的也就只有笔记本
- 这边介绍了几个安装windows7系统过程中比较会常碰到的错误问题
- 昨天才发布的iOS16.2，今天又发布了iOS16.3，苹果更新的这么频烦到底更新了什么？有必要升级到苹果iOS16.3测试版吗？iOS16
- 我们使用电脑久了的话，会产生许多的系统垃圾，如果我们不进行清理的话，垃圾会一直占据我们的系统空间，造成系统的卡顿使运行不顺畅，那我们应该怎么
- 设置工作簿打开密码和保护工作簿结构是保护工作簿时常用的操作，前者没有密码就不能打开Excel工作簿查看里面的内容；后者可以打开Excel工作
- 在A1单元格内输入89*10，想在A2单元格中得到A1单元内两个数字的乘积即890，有什么函数或方法可以实现?今天，小编就教大家在Excel
- AMD Ryzen 3 3300X是由AMD最近刚发布的一款精品性价比CPU，最近有好事者做了一些测试，将R3 3300X和I7-7700k
- 一些网友朋友在使用win10系统的时候，发现系统无法自动更新了，这要怎么解决呢？本文中带来了几种方法，需要的朋友不妨阅读了解一下Win10无
- ①启动Word2010，输入一段英文句子，然后点击菜单栏--审阅--语言--翻译。 ②首先选择翻译屏幕提示，这样我
- 用户在时候驱动人生发生弹窗广告，都是流氓弹窗广告，也可能是其他软件的广告弹出，一般只要下载拦截广告软件即可，下面一起看看驱动人生弹窗广告解决
- MAC用户喜欢在重装系统前使用Transmit备份一些电脑中重要的数据，不过在重装完系统之后，却又找不到Transmit将数据备份在哪里。对
