先來(lái)看看一個(gè)表，也不知道哪個(gè)挨千刀得，在記錄數(shù)據(jù)得時(shí)候搞成這個(gè)樣子，都聚集在A1單元格。
要將A1中得姓名和銀行卡號(hào)分別提取出來(lái)，只需要一個(gè)自定義函數(shù)GetChar就可以輕松搞定。
C2單元格：
=INDEX(GetChar($A$1,3),ROW(1:1))
D2單元格：
=INDEX(GetChar($A$1,1),ROW(1:1))
這個(gè)神秘得GetChar到底是什么呢？它是VBA自定義函數(shù)。
右鍵單擊工作表標(biāo)簽，插入，模塊，然后將以下代碼粘貼到模塊里，好了，接下來(lái)就一起輕松玩轉(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
這個(gè)自定義函數(shù)得功能設(shè)計(jì)就是專門(mén)提取字符得，語(yǔ)法為：
GetChar(strChar,varType)：
第二參數(shù)為1時(shí)提取數(shù)字
第二參數(shù)為2時(shí)提取英文
第二參數(shù)為3時(shí)提取漢字
圖文：翟振福
