vba - 替换函数，如何替换不是所有找到的字符串？

Question

我从 Excel 文件创建 XML 文件。我将一个单元格中的字符串保存在变量 sObserved 中。当在该字符串中我有一个字符 "&" 时，应将其替换为 "&" 并且当我有一个字符 ";" 时应将其替换为“;”。 我用于此功能替换，这是我的代码:

        sObserved = Replace(sObserved, "&", "&")
        sObserved = Replace(sObserved, ";", "&#59;")

但这效果不佳，因为当它将替换 "&" 上的 "&" 时，";"会出现，下一步操作会将其更改为 "&;"如果我更改订单，它也会是错误的，因为 ";" 中的符号“&”将被替换。

有没有可能像我想要的那样替换它？我将不胜感激任何想法，因为我被困在这里。

Answer 1

试试这个:

sObserved = Replace(sObserved, "&", "&")
sObserved = Replace(sObserved, ";", "&#59;")
sObserved = Replace(sObserved, "&amp&#59;", "&")