VBA中替换字符串u'为双引号时u未被移除如何解决

代码替换失败有两个直接原因：

• VBA字符串语法中，双引号属于特殊字符，要表示单个双引号，需要在字符串字面量内写两个连续双引号做转义，你当前写法的替换目标字符不符合预期。
• 目标字符串结构为u'字段值'格式：每个字段的起始标记是u'，结束标记是独立的单引号（前面无字符u），仅替换u'无法覆盖收尾的单引号，匹配逻辑写错则会残留字符u。

方案1：两次替换（适合内容无单引号的场景） #

逻辑简单无需额外引用，先替换所有u'为双引号，再替换剩余的单引号为双引号即可：

Sub ConvertUString()
    Dim strText As String
    Dim newstrTxt As String
    strText = "u'DROP_MOBILE': u'1234567890'"
    ' 替换所有u'为双引号：VBA中连续4个双引号代表字符串内容为1个双引号
    newstrTxt = Replace(strText, "u'", """")
    ' 替换剩余的收尾单引号为双引号
    newstrTxt = Replace(newstrTxt, "'", """")
    ' 此时newstrTxt的值即为预期的"DROP_MOBILE": "1234567890"
End Sub

方案2：正则精准替换（适合内容可能包含单引号的场景） #

通过正则匹配u'内容'的完整结构做替换，不会误改内容内部的单引号，兼容性更强：

Sub ConvertUStringByRegex()
    Dim strText As String
    Dim newstrTxt As String
    Dim reg As Object
    Set reg = CreateObject("VBScript.RegExp")
    strText = "u'DROP_MOBILE': u'1234567890'"
    
    With reg
        .Global = True
        .Pattern = "u'([^']+)'" ' 匹配u'包裹的所有内容
        newstrTxt = .Replace(strText, """$1""") ' 替换为双引号包裹的捕获内容
    End With
    
    Set reg = Nothing
    ' 输出结果同样符合预期
End Sub

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