麻辣家族討論版版 » Excel程式區 » 如何在單元格抽取特定的文字？

返回列表下一主題上一主題發帖

[發問] 如何在單元格抽取特定的文字？

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 43
點名: 0
作業系統: WIN7
軟體版本: WIN
閱讀權限: 10
註冊時間: 2015-9-13
最後登錄: 2019-12-16

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-1-11 13:27 | 只看該作者

[發問] 如何在單元格抽取特定的文字？

例如上圖，想抽取A欄特定的號碼如ABCD2685444，但置於文字的前後或中間，如何透過VBA把它們抽出來放於B欄？謝謝！！

樓主熱帖

收藏

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-22

熱烈參與勳章

2^#

發表於 2016-1-11 14:12 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/372861868

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 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)

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 43
點名: 0
作業系統: WIN7
軟體版本: WIN
閱讀權限: 10
註冊時間: 2015-9-13
最後登錄: 2019-12-16

4^#

發表於 2016-1-11 23:37 | 只看該作者

回復 3# stillfish00

謝謝啊!很棒!!:D

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 43
點名: 0
作業系統: WIN7
軟體版本: WIN
閱讀權限: 10
註冊時間: 2015-9-13
最後登錄: 2019-12-16

5^#

發表於 2016-1-11 23:39 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/372861868
hcm19522 發表於 2016-1-11 14:12

函數啊,學習一下,謝謝你啊!!

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

返回列表下一主題上一主題