国产成人啪精品视频免费网-国产成人啪精品视频免费网站软件-国产成人盗拍精品免费视频-国产成人深夜福利在线观看-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

反饋

用戶
反饋

主站蜘蛛池模板: 成人97 | 99久久免费国产精品 | 91精品国产爱久久久久 | 成人欧美精品大91在线 | 日韩美女一级片 | 99精品这里只有精品高清视频 | 超矿碰人人超人人看 | 亚洲韩国欧美一区二区三区 | 亚洲成人7777 | 日韩国产欧美一区二区三区 | 日本精品视频在线播放 | 在线精品国内外视频 | 99久久精品免费看国产 | 91香焦国产线观看看免费 | 精品国产_亚洲人成在线高清 | 久久93精品国产91久久综合 | 欧美aaaaaabbbbb | 亚洲欧美精品一区 | 国产在线精品一区二区高清不卡 | 一级特级aaaa毛片免费观看 | 日本毛片在线看 | 日本一区二区三区欧美在线观看 | 中文字幕一区二区三区亚洲精品 | 高清在线观看自拍视频 | 狠狠色丁香久久婷婷综合_中 | 成人人免费夜夜视频观看 | 国产日产高清欧美一区二区三区 | 国产免费高清 | 欧美成人精品福利在线视频 | 国产tv在线 | 美女视频永久黄网站在线观看 | 手机免费黄色网址 | 老师张开腿让我爽了一夜视频 | 成年女人免费视频播放成年m | 91九九| 久久久网站 | 欧美激情精品久久久久 | 国产在线一区二区三区欧美 | 欧美成在人线a免费 | 一区二区三区四区免费视频 | 日韩欧美在线视频 |