0

我正在尝试从单元格 A1 中获取文本并在同一张表上另一个单元格的文本中使用它,我们称之为单元格 A20,使用 VBA。如果单元格 A1 说“狗”,我希望代码将该词插入到单元格 A20 中预先存在的文本中间,“我最喜欢我的__是它的颜色。”

为清楚起见,我会说单元格 A20 中的其余文本永远不会改变,因此如果最简单的话,可以将其输入代码本身(无论如何我可能更喜欢这样)。希望这是有道理的,但如果没有,请发表评论并告诉我。在此先感谢帮助我的人!

4

1 回答 1

0

如果 A20 没有被更改是可以的,则可以使用此工作表公式将所需的更改放入另一个单元格:

  =SUBSTITUTE(A20,"__",A1)

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

  Sub InsertText()
      Range("A20").Value = Replace(Range("A20").Value, "__", Range("A1").Value)
  End Sub   
于 2013-06-25T20:46:44.870 回答