188比分网开户|188比分足球直播
利用正則表達式提取或刪除漢字
責任編輯:hylng    瀏覽:2948次    時間: 2012-12-31 23:16:08      

摘要:在日常的工作應用中,我們經常與漢字打交道,下面這個自定義函數的功能,就是提取與刪除字符串或單元格中漢字的自定義函數: Function Hanzi(rng, Optional pd As Boolean = True) As String '******************************************* '時間:2010-09-28 '功能..

分享到:

在日常的工作應用中,我們經常與漢字打交道,下面這個自定義函數的功能,就是提取與刪除字符串或單元格中漢字的自定義函數:

Function Hanzi(rng, Optional pd As Boolean = True) As String
'*******************************************
'時間:2010-09-28
'功能:提取給定字符串(單元格)中漢字與非漢字集
'說明:rng  原字符串或單元格
'      pd   當為True時,提取漢字(默認),否則提取非漢字。
'發布:http://www.excelba.com
'******************************** ***********
With CreateObject("VBSCRIPT.REGEXP")
    .Global = True
    If pd Then
        .Pattern = "[^\u4e00-\u9fa5]"
    Else
        .Pattern = "[\u4e00-\u9fa5]"
    End If
    Hanzi = .Replace(rng, "")
End With
End Function

應用示例:設A1里的值為 excel吧 - bengdeng 歡迎您!2010年9月28日

在B1設定公式:=Hanzi(A1)
結果為:吧歡迎您年月日

在C1設定公式::=Hanzi(A1,0)
結果為:excel - bengdeng !2010928

除此,也可以利用到其它的程序中,如下面這段程序是去除當前工作表中所有的漢字:

Sub 去除當前工作表中的漢字()
Dim tRan As Range
Application.ScreenUpdating = False
For Each tRan In ActiveSheet.UsedRange
    tRan = Hanzi(tRan, 0)
Next
Application.ScreenUpdating = True
End Sub

】【打印繁體】【投稿】 【收藏】 【推薦】 【舉報】 【評論】 【關閉】【返回頂部
188比分网开户 2013年好股票推荐 东方6 1开奖走势图 09l篮网赛程 麻将棋牌神辅助怎么用 上下分麻将平台视频 河北十一选五走势 韩国篮球即时比分 福建体育36选7开 桥本凉最经典的是哪一部 东京热网盘下载 川上奈美全部作品 吉林快三96稳定群 在线看黄AV免费 北京十一选五走势图 2013长沙站街女 山东11选5遗漏