我正在尝试将 A1 中的每个 (") 引号更改为 (-),然后在 B1 中打印结果。
Sub ReplaceQuotes()
Dim inputText As String
Dim outputText As String
inputText = Range("A1").Value
outputText = Replace(inputText, """", "-")
Range("B1").Value = outputText
End Sub
示例文本:
有句流行的谚语说:“当老人播种时,社会就会变得伟大 他们永远不会坐在树荫下。”当我们处置 放射性废物,我们不会说,“谁在乎这是否会毒害人们 几个世纪之后?”同样,我们很少有人关心气候 改变或污染只是为了今天活着的人们。
结果是一样的。一切都没有改变。
尝试了 Chr(43) 而不是“”“”。
“A”等其他角色也可以工作。
这可能没有意义,但 Excel 不会将句子中的双引号识别为实际的双引号。大多数时候,当您从其他来源复制内容并粘贴它们时,Excel 不会将它们视为传统字符,它们被称为非打印字符。所以我只是复制了句子中的一个引号并将其直接放入VBA中。
Sub ReplaceQuotes()
Dim inputText As String
Dim outputText As String
inputText = Range("A1").Value
outputText = Replace(inputText, "“", "-")
Range("B1").Value = outputText
End Sub
您会注意到我提供的代码中的差异。引号和句子中的引号不一样。