excel - マクロvbを使用してExcelセル内の&を置き換える方法

Question

以下は私のマクロ関数の一部です。(r,47) のセル値は、ユーザーが入力した可能性があります。入力した「&」を「&」に続けて「amp;」に置き換えたいと思います。(注: 複雑なメソッド「&」の後に「amp;」が続くものは、amp; がこのエディターにドロップされているときに使用されます。)

代用しようとしましたが、マクロを保存しようとすると構文エラーが発生します。

現在、マクロ関数にこのステートメントがあります。

Print #fnum, "<College><School>" & Cells(r, 47) & "</School></College>" 

そして、私は以下のものを試しました。

Print #fnum, "<College><School>" & Cells(r, 47).Substitute('&','&amp;') & "</School></College>"

Answer 1

1. 文字列を定義するときは、二重引用符を使用する必要があります。
2. 代用は機能しません。これはワークシート関数であり、範囲オブジェクトのメソッドではありません。

3. 代わりにVBA置換機能を試してください

   Print #fnum, "<College><School>" & Replace(Cells(r, 47), "&", "&amp") & "</School></College>"