標題:
[發問]
如何在單元格抽取特定的文字？
[打印本頁]
作者:
leehom
時間:
2016-1-11 13:27
標題:
如何在單元格抽取特定的文字？
[attach]23082[/attach]
例如上圖，想抽取A欄特定的號碼如ABCD2685444，但置於文字的前後或中間，如何透過VBA把它們抽出來放於B欄？謝謝！！
作者:
hcm19522
時間:
2016-1-11 14:12
http://blog.xuite.net/hcm19522/twblog/372861868
作者:
stillfish00
時間:
2016-1-11 15:04
回復
1#
leehom
模組中增加自訂函數
Function GetSerialNumber(s As String) As String
Dim oMatch As Object
With CreateObject("vbscript.regexp")
'假設規則為 4個大寫英文+7個數字 的獨立單詞
.Pattern = "\b[A-Z]{4}[0-9]{7}\b"
Set oMatch = .Execute(s)
End With
If oMatch.Count > 0 Then GetSerialNumber = oMatch(0)
End Function
複製代碼
B1填入 =GetSerialNumber(A1)
作者:
leehom
時間:
2016-1-11 23:37
回復
3#
stillfish00
謝謝啊!很棒!!:D
作者:
leehom
時間:
2016-1-11 23:39
http://blog.xuite.net/hcm19522/twblog/372861868
hcm19522 發表於 2016-1-11 14:12
函數啊,學習一下,謝謝你啊!!
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
