嘿，我来帮你搞定这个困扰！咱先搞清楚为啥你之前用?各种写法都不管用——VBA里普通的Replace函数根本不支持通配符玩法，那玩意儿只有在Excel单元格替换的时候才生效，处理纯文本文件得换个思路：用正则表达式，这才是精准匹配任意单个字母的正确打开方式。

具体解决方案步骤 #

1. 核心思路 #

用正则表达式匹配「固定前缀 + 任意单个大小写字母」的目标字符串，然后全局替换所有重复出现的匹配项。

2. 完整VBA代码示例 #

Sub ReplaceTargetStrings()
    Dim filePath As String
    Dim fileContent As String
    Dim regex As Object
    Dim targetPattern As String
    Dim replaceWith As String
    
    ' --------------------------
    ' 这里根据你的需求修改参数
    ' --------------------------
    filePath = "C:\Your\File\Path\example.txt" ' 替换成你的文本文件实际路径
    targetPattern = "Order_[A-Za-z]" ' 把Order_换成你的目标字符串前缀，末尾[A-Za-z]匹配任意单个大小写字母
    replaceWith = "Processed_" ' 替换成你想要的最终内容
    
    ' 读取文本文件全部内容
    Open filePath For Input As #1
    fileContent = Input$(LOF(1), 1)
    Close #1
    
    ' 后期绑定正则对象（无需手动引用库，兼容性更好）
    Set regex = CreateObject("VBScript.RegExp")
    With regex
        .Pattern = targetPattern ' 设置匹配规则
        .Global = True ' 开启全局替换，处理所有重复出现的目标字符串
        .IgnoreCase = False ' 区分大小写，若不需要区分可改为True
    End With
    
    ' 执行替换操作
    fileContent = regex.Replace(fileContent, replaceWith)
    
    ' 将替换后的内容写回文件
    Open filePath For Output As #1
    Print #1, fileContent
    Close #1
    
    MsgBox "所有目标字符串替换完成！", vbInformation
End Sub

3. 代码关键说明 #

• 匹配模式调整：
  • 如果只需要匹配大写字母，把[A-Za-z]改成[A-Z]；只匹配小写就用[a-z]。
  • 如果你的前缀包含正则元字符（比如.、*、+这些），需要用反斜杠转义，比如前缀是Report.，那模式要写成Report\.[A-Za-z]。
• 全局替换：.Global = True必须设置，否则只会替换第一个匹配到的字符串，满足你处理「重复出现」的需求。
• 后期绑定优势：不用手动去VBA编辑器里引用「Microsoft VBScript Regular Expressions 5.5」库，代码在不同电脑上都能直接运行。

为啥之前的?没用？ #

VBA的原生Replace函数不支持通配符匹配，你试的?、"?"这些写法在这个场景下完全不生效。只有当你用Excel的Range.Replace方法（处理单元格内容）时，通配符才会起作用，但处理纯文本文件就得靠正则啦。

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