VBA替换Excel单元格A1引号为短横线无效，求解决方法

你的代码失效是因为目标文本里的是中文全角引号（“、”），但你代码里替换的是英文半角引号（"），二者是完全不同的字符，编码也不一样。另外你误用的Chr(43)是加号（+），和引号没有任何关系，所以完全起不到作用。

修正后的代码方案 #

方案1：分别替换左右中文引号 #

直接针对中文左引号（ChrW(8220)）和右引号（ChrW(8221)）进行替换：

Sub ReplaceChineseQuotes()
    Dim inputText As String
    Dim outputText As String
    
    inputText = Range("A1").Value
    ' 替换中文左引号为短横线
    outputText = Replace(inputText, ChrW(8220), "-")
    ' 替换中文右引号为短横线
    outputText = Replace(outputText, ChrW(8221), "-")
    
    Range("B1").Value = outputText
End Sub

方案2：用正则一次性替换所有中文引号 #

如果需要更灵活的匹配（比如同时处理其他引号变体），可以用正则表达式：

Sub ReplaceQuotesWithRegex()
    Dim inputText As String
    Dim regex As Object
    
    Set regex = CreateObject("VBScript.RegExp")
    regex.Global = True ' 开启全局匹配
    regex.Pattern = "[" & ChrW(8220) & ChrW(8221) & "]" ' 匹配左右中文引号
    
    inputText = Range("A1").Value
    Range("B1").Value = regex.Replace(inputText, "-")
End Sub

补充说明 #

• 英文半角引号的编码是Chr(34)，如果后续需要处理英文引号，可以在代码里追加outputText = Replace(outputText, Chr(34), "-")。
• 替换其他字符正常生效，是因为那些字符的编码和你代码里指定的一致，所以能匹配替换。

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