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

如何在Excel 2013/2016中清除或禁用最近的工作簿列表

本文讲述如何在Excel2013/2016中清除或禁用最近的工作簿列表。如何在MicrosoftExcel中使用VBA宏清除最近使用的工作簿列表。使用Excel选项清除最近的工作簿列表使用未固定的工作簿清除最近的工

实际应用：

作为一个函数使用在工作表的公式中，如：单元格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 替换函数REPLACE与SUBSTITUTE的用法与区别

REPLACE函数与SUBSTITUTE函数都是我们经常会用到的替换函数，下面我们来学习一下两者的用法与区别。REPLACE函数１、语法结构REPLACE(old_text,start_num,num_chars，new_text)通俗说法：replace（需要替换其