国产成人啪精品视频免费网-国产成人啪精品视频免费网站软件-国产成人盗拍精品免费视频-国产成人深夜福利在线观看-a中文字幕1区-a毛片

二維碼
企資網(wǎng)

掃一掃關(guān)注

當(dāng)前位置: 首頁 » 企資快報 » 商業(yè) » 正文

一個自定義函數(shù)_輕松提取中文_數(shù)值和英文

放大字體  縮小字體 發(fā)布日期:2022-12-08 20:46:23    作者:葉子墨    瀏覽次數(shù):84
導(dǎo)讀

先來看看一個表,也不知道哪個挨千刀得,在記錄數(shù)據(jù)得時候搞成這個樣子,都聚集在A1單元格。要將A1中得姓名和銀行卡號分別提取出來,只需要一個自定義函數(shù)GetChar就可以輕松搞定。C2單元格:=INDEX(GetChar($A$

先來看看一個表,也不知道哪個挨千刀得,在記錄數(shù)據(jù)得時候搞成這個樣子,都聚集在A1單元格。

要將A1中得姓名和銀行卡號分別提取出來,只需要一個自定義函數(shù)GetChar就可以輕松搞定。

C2單元格:

=INDEX(GetChar($A$1,3),ROW(1:1))

D2單元格:

=INDEX(GetChar($A$1,1),ROW(1:1))

這個神秘得GetChar到底是什么呢?它是VBA自定義函數(shù)。

右鍵單擊工作表標(biāo)簽,插入,模塊,然后將以下代碼粘貼到模塊里,好了,接下來就一起輕松玩轉(zhuǎn)提取字符吧:

Function GetChar(strChar As String, varType As Variant) '取值函數(shù) Dim objRegExp As Object Dim objMatch As Object Dim strPattern As String Dim arr Set objRegExp = CreateObject("vbscript.regexp") varType = LCase(varType) Select Case varType Case 1, "number" strPattern = "-?\d+(\.\d+)?" Case 2, "english" strPattern = "[a-z]+" Case 3, "chinese" strPattern = "[\u4e00-\u9fa5]+" End Select With objRegExp .Global = True .IgnoreCase = True .Pattern = strPattern Set objMatch = .Execute(strChar) End With If objMatch.Count = 0 Then GetChar = "" Exit Function End If ReDim arr(0 To objMatch.Count - 1) For Each cell In objMatch arr(i) = objMatch(i) i = i + 1 Next GetChar = arr Set objRegExp = Nothing Set objMatch = NothingEnd Function

這個自定義函數(shù)得功能設(shè)計就是專門提取字符得,語法為:

GetChar(strChar,varType):

第二參數(shù)為1時提取數(shù)字

第二參數(shù)為2時提取英文

第二參數(shù)為3時提取漢字

圖文:翟振福

 
(文/葉子墨)
免責(zé)聲明
本文僅代表作發(fā)布者:葉子墨個人觀點,本站未對其內(nèi)容進行核實,請讀者僅做參考,如若文中涉及有違公德、觸犯法律的內(nèi)容,一經(jīng)發(fā)現(xiàn),立即刪除,需自行承擔(dān)相應(yīng)責(zé)任。涉及到版權(quán)或其他問題,請及時聯(lián)系我們刪除處理郵件:weilaitui@qq.com。
 

Copyright ? 2016 - 2025 - 企資網(wǎng) 48903.COM All Rights Reserved 粵公網(wǎng)安備 44030702000589號

粵ICP備16078936號

微信

關(guān)注
微信

微信二維碼

WAP二維碼

客服

聯(lián)系
客服

聯(lián)系客服:

在線QQ: 303377504

客服電話: 020-82301567

E_mail郵箱: weilaitui@qq.com

微信公眾號: weishitui

客服001 客服002 客服003

工作時間:

周一至周五: 09:00 - 18:00

反饋

用戶
反饋

主站蜘蛛池模板: 亚洲一区在线视频 | 乱人伦中文视频在线 | 三级黄色毛片网站 | 久草视频福利在线观看 | 久久精品视频播放 | 免费一区二区三区视频狠狠 | 中文字幕日韩一区二区不卡 | 国产亚洲综合成人91精品 | 伊人久热这里只有精品视频99 | 欧美日一本 | 免费精品久久久久久中文字幕 | 欧美日韩视频在线第一区二区三区 | 国产午夜精品理论片小yo奈 | 久久视频精品53在线观看 | 中国美女黄色一级片 | 欧美精品在线视频观看 | 人成午夜 | 中国美女乱淫免费看视频 | 亚洲干综合 | 亚洲国产免费 | 久久天天躁综合夜夜黑人鲁色 | youjizz日韩 | 日韩在线一区二区三区视频 | 成人免费毛片一区二区三区 | 日产国产精品久久久久久 | 成年人黄视频在线观看 | 男人操美女网站 | a级毛片免费看 | 亚洲成在人线久久综合 | 欧美13一14周岁a在线播放 | 国产在线播放成人免费 | 国产精品免费一区二区三区 | 杨幂丝袜国产福利视频 | 久久国产精品一区二区三区 | 伊人狠狠丁香婷婷综合色 | 性欧美一级毛片欧美片 | 欧美福利一区二区三区 | 国产精品网址 | 欧美性色黄大片在线观看 | 永久黄网站色视频免费观看99 | 久久视频这里只有精品 |