这确实是个容易踩坑的问题——递归替换的坑在字符串处理里太常见了，尤其是用普通Replace()方法的时候。好在VBA里有几个高效的办法能解决，不用逐字符抠，处理1万行数据也毫无压力，给你两个实用方案：

方案1：正则匹配+倒序替换 #

核心思路是一次性找出所有令牌，然后从字符串末尾往前替换。这样即使替换后的内容包含其他令牌，也不会被重复处理，彻底避免递归替换。

Function ReplaceTokens(inputText As String) As String
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "%([ud])" ' 匹配%u或%d，可根据需求扩展令牌规则
    regex.Global = True
    
    Dim matches As Object
    Set matches = regex.Execute(inputText)
    
    Dim result As String
    result = inputText
    
    ' 从最后一个匹配项开始倒序替换
    Dim i As Integer
    For i = matches.Count - 1 To 0 Step -1
        Dim token As String
        token = matches(i).Value
        Dim replacement As String
        
        Select Case token
            Case "%u"
                replacement = Environ("USERNAME") ' 获取当前系统用户名
            Case "%d"
                replacement = Format(Date, "YYYYMMDD") ' 按指定格式输出日期
            ' 可添加更多令牌的替换规则，比如%t替换为当前时间
        End Select
        
        ' 精准替换当前匹配的令牌，不影响其他位置
        result = Left(result, matches(i).FirstIndex) & replacement & Mid(result, matches(i).FirstIndex + Len(token) + 1)
    Next i
    
    ReplaceTokens = result
End Function

为什么这个方案高效？ #

• 正则表达式的Execute方法一次性扫描所有令牌，比多次调用Replace效率高得多
• 倒序替换从根本上杜绝了递归替换的可能，替换后的内容不会被二次匹配
• 处理1万行Excel数据时，正则匹配的开销完全可以忽略

方案2：Split分割拼接法（无需正则） #

如果不想用正则，用VBA原生的Split函数也能高效解决问题。把字符串按%分割后，逐个判断令牌并替换，同样不会出现递归问题。

Function ReplaceTokensSplit(inputText As String) As String
    Dim parts As Variant
    parts = Split(inputText, "%") ' 按%分割字符串
    Dim result As String
    result = parts(0) ' 初始化为第一个分割段（%之前的内容）
    
    Dim i As Integer
    For i = 1 To UBound(parts)
        Dim tokenChar As String
        tokenChar = Left(parts(i), 1) ' 提取分割后的第一个字符作为令牌标识
        Dim restContent As String
        restContent = Mid(parts(i), 2) ' 获取令牌之后的剩余内容
        
        Select Case tokenChar
            Case "u"
                result = result & Environ("USERNAME") & restContent
            Case "d"
                result = result & Format(Date, "YYYYMMDD") & restContent
            Case Else
                ' 如果是无效令牌，保留原%和后续内容
                result = result & "%" & tokenChar & restContent
        End Select
    Next i
    
    ReplaceTokensSplit = result
End Function

这个方案的优势： #

• 完全依赖VBA原生函数，不需要创建正则对象，代码更轻量
• 逻辑直观，容易扩展和维护
• 处理大量数据时，Split的效率和正则不相上下

测试验证 #

假设输入文本为"Username %u, date is %d."，且%u替换后为"Andy%d"，两个函数都会输出：

Username Andy%d, date is 20170820.

而不是错误的递归替换结果"Username Andy20170820, date is 20170820."，完美解决了你的问题。

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