如何从单元格A1中取出文本并将其放在另一个单元格的句子中间？

Question

我正在尝试从单元格A1中获取文本并在同一工作表上的另一个单元格的文本中使用它，让我们使用VBA将其称为单元格A20。如果单元格A1说＆＃34; dog＆＃34;，我希望代码在单元格A20中预先存在的文本中间插入该单词，＆＃34;我最喜欢的事情是关于 __ 是它的颜色。＆＃34;

为了清楚起见，我会说A20单元格中的其余文本永远不会改变，因此如果最简单的话可以输入代码本身（我可能更喜欢无论如何）。希望这是有道理的，但请注释，如果它没有，请告诉我。提前感谢帮助我的人！

Answer 1

如果没有改变A20，可以使用此工作表公式将所需的更改放入另一个单元格中：

  =SUBSTITUTE(A20,"__",A1)

VBA完成同样的事情 - 但现在替换A20中的原始字符串：

  Sub InsertText()
      Range("A20").Value = Replace(Range("A20").Value, "__", Range("A1").Value)
  End Sub