如何在VBA中提取字符和數字的通用字符串（模式）？

Question

我試圖建立一個功能，我很久以前就被阻塞了。

我想從單元格中的字符串中提取一個像「ABC123」或「AB1234」這樣的子字符串。有一些條件：

• 它必須是像 「ABC123」 或 「AB1234」，所以3炭和3數字或2炭和4數字。即「CDE789」也是這種模式之一。
• 我們正在尋找的字符串沒有特定的大小。它可能包含或不包含該模式。
• 如果搜索詞應該在之後或之前有一個空格（那麼只有該模式）。並不是說如果我們在字符串的開頭或結尾，它就不適用。
• 該函數應返回該特定字符串集（即在除已存在的列以外的列中）。

我試過類似的功能，數組或甚至字典，但我找不到解決方案。例如我試圖循環槽的字符串的LEN，細分6個變量，並檢查一個IF如果前2個字符和最後4個數字。它很重，不適用於大量數據。

我蹩腳的英語還請道歉，不要猶豫，糾正我，我也是她學習這個:)

謝謝！

Answer 1

您應該使用正則表達式。

在這裏，你有一個返回匹配的例子，只要你想： Returning a regex match in VBA (excel)

Answer 2

VBA：計數的字母和數字量與功能

Function AlphaNumeric(pInput As String) As String 
'Updateby20140303 
Dim xRegex As Object 
Dim xMc As Object 
Dim xM As Object 
Dim xOut As String 
Set xRegex = CreateObject("vbscript.regexp") 
xRegex.Global = True 
xRegex.ignorecase = True 
xRegex.Pattern = "[^\w]" 
AlphaNumeric = "" 
If Not xRegex.test(pInput) Then 
    xRegex.Pattern = "(\d+|[a-z]+)" 
    Set xMc = xRegex.Execute(pInput) 
    For Each xM In xMc 
     xOut = xOut & (xM.Length & IIf(IsNumeric(xM), "N", "L")) 
    Next 
    AlphaNumeric = xOut 
End If 
End Function 

Answer 3

編輯：找到了！

感謝您的回答，我實現了這個：

Function GetID(MyRange As Variant) 

    Dim regEx As Object 
    Set regEx = CreateObject("vbscript.regexp") 
    Dim strPattern As String 
    Dim strInput As String 
    Dim strReplace As String 
    Dim strOutput As Object 

    strPattern = "([a-zA-Z]{3})([0-9]{3})" 

    With regEx 
     .Global = True 
     .MultiLine = True 
     .IgnoreCase = False 
     .Pattern = strPattern 
    End With 

    If strPattern <> "" Then 
     strInput = MyRange.Value 
     strReplace = strPattern 

     If regEx.test(strInput) Then 
      Set strOutput = regEx.Execute(MyRange.Value) 
      GetID = regEx.Execute(strInput)(0) 
     Else 
      GetID = "Not matched" 
     End If 
    End If 

End Function 

它的工作原理。但是，有一種情況並非如此： - 如果我的字符多於我的模式。例如ABC123456將返回ABC123。它不應該被考慮在內，只有「ABC123」。即使AABC123被考慮在內，但它不應該。

編輯：它的工作原理是在開頭添加\ B和底：

「\ B（[A-ZA-Z] {3}）（[0-9] {3}）\ b 「

非常感謝！