?從字符串中提取或者刪除漢字是在我們日常使用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