VBA正则匹配问题：如何抓取仅含字母与数字的目标子串

看起来你需要的是提取同时包含字母和数字的纯字母数字子串，而不是所有字母数字组成的子串（比如要排除纯数字的234234323、234这类），同时还要能匹配像3D9083324T234Y这种字母数字任意交替的情况——之前的两种正则模式都有局限性，我来给你一个可行的方案：

核心正则模式 #

使用带正向预查的正则来确保子串同时包含字母和数字，并且匹配完整的字母数字序列：

\b(?=[A-Z\d]*[A-Z])(?=[A-Z\d]*\d)[A-Z\d]+\b

模式拆解 #

• \b：单词边界，确保我们匹配的是被非字母数字字符（逗号、斜杠、空格等）分隔的完整子串，不会从混合字符里截取片段；
• (?=[A-Z\d]*[A-Z])：正向预查，保证子串中至少包含一个大写字母；
• (?=[A-Z\d]*\d)：另一个正向预查，保证子串中至少包含一个数字；
• [A-Z\d]+：匹配一个或多个大写字母/数字的连续序列；
• \b：结尾的单词边界，确认子串结束。

如果你的字符串里有小写字母，只需把模式中的[A-Z]改成[A-Za-z]，再配合正则的IgnoreCase参数即可。

VBA示例代码 #

下面是直接可用的VBA代码，把提取到的子串输出到立即窗口：

Sub ExtractMixedAlnumSubstrings()
    ' 输入你的目标字符串
    Dim inputText As String
    inputText = "K9908098,G2342DF34324/234234323~234-234-234;R38724234+3D9083324T234Y 23E4234323"
    
    ' 初始化正则对象
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    
    With regEx
        .Pattern = "\b(?=[A-Z\d]*[A-Z])(?=[A-Z\d]*\d)[A-Z\d]+\b"
        .Global = True ' 开启全局匹配，提取所有符合条件的子串
        .IgnoreCase = False ' 区分大小写，若要匹配小写可改为True
    End With
    
    ' 执行匹配并遍历结果
    Dim matches As Object
    Set matches = regEx.Execute(inputText)
    
    Dim matchItem As Object
    For Each matchItem In matches
        Debug.Print matchItem.Value ' 输出到立即窗口，也可以存入数组/单元格
    Next matchItem
End Sub

为什么之前的模式不行？ #

• [A-Z\d]+：这个模式会匹配所有字母数字组成的连续序列，包括纯数字（比如234234323）、纯字母（如果有的话），不符合你要筛选“字母数字混合”子串的需求；
• ([A-Z]+\d+)+：这个模式要求子串是「字母段+数字段」的重复组合，比如AB12CD34会匹配，但无法匹配以数字开头的3D...，也无法处理中间有字母接字母、数字接数字的复杂交替（比如3D9083324T234Y里的T234Y部分，字母T后面是数字，但Y又是字母，不符合模式的「字母段+数字段」循环要求）。

内容的提问来源于stack exchange，提问作者shmnff