求助：VBA正则函数ExtractCap提取大写字母及1WO模式异常排查

嘿，我看了你的代码片段，发现几个关键问题导致它没法实现你要的功能，咱们一步步理清楚：

原代码的核心问题 #

• Pattern的设置逻辑完全错了：你写的If xRegEx.Pattern = "[^A-Z]" Then是个逻辑误区——Pattern是要你主动赋值的属性，不是用来做条件判断的。这行代码根本没正确设置正则规则，后续的替换操作自然达不到预期。
• 没处理特殊模式"1WO"：原代码只想着过滤非大写字母，但"1WO"里的数字1会被过滤掉，最后只留下WO，不符合你要完整提取"1WO"的需求。

修复后的完整代码 #

Option Explicit

Function ExtractCap(Txt As String) As String
    Application.Volatile
    Dim xRegEx As Object
    Dim matches As Object
    Dim match As Object
    Dim result As String
    
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    ' 正则模式：优先匹配完整的"1WO"，再匹配单个大写字母
    xRegEx.Pattern = "(1WO|[A-Z])"
    xRegEx.Global = True ' 开启全局匹配，找所有符合条件的内容
    xRegEx.MultiLine = False
    
    Set matches = xRegEx.Execute(Txt)
    result = ""
    ' 遍历所有匹配结果，拼接成最终字符串
    For Each match In matches
        result = result & match.Value
    Next match
    
    ExtractCap = result
End Function

为什么这样改？ #

1. 正则模式优化：(1WO|[A-Z])这个模式会先匹配完整的"1WO"串（正则里竖线|是或的意思，左边的模式优先级更高），再匹配单个大写字母，这样既保留了特殊串，又不会漏掉其他大写字母。
2. 改用Execute方法：之前的替换思路（去掉非大写字母）没法保留"1WO"里的数字，所以换成直接匹配我们需要的内容，再把匹配到的项拼接起来，逻辑更直接。
3. 修正拼写失误：你原代码最后写的Extrac...应该是ExtractCap的拼写错误，已经在修复版里修正了。

测试一下 #

• 输入"User:399595:Account:ETH:balance" → 返回"UAETH"，完美符合预期。
• 输入"User:197755:Account:1WO:balance" → 返回"UA1WO"，也达到了你的要求。

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