使用VBA向单元格添加文本而不删除单元格中已有的内容

Question

我试图在宏用数据填充它之后更改单元格中的内容。例如，我的宏将在单元格中放置750。我需要在750之后在单元格中放置一个“T”，而不删除750.每次使用宏时750都会改变，所以我不能只使用ActiveCell.FormulaR1C1 = "750 T"

它将永远是一个添加了“T”的数字，但如果它被格式化为文本则很好。

Answer 1

你想保留那些并添加一个T，所以这里是如何：

ActiveCell.Value = ActiveCell.Value & " T"

您可以将ActiveCell更改为您想要的任何内容。

完全抄袭@ padawan0007，虽然回答很明显。

另外，我还要问你是否因某种原因使用ActiveCell.FormulaR1C1？如果你没有插入实际的公式，你应该使用.Value。

Answer 2

更灵活的方法是为这种任意后缀使用自定义格式。例如，

ActiveCell.NumberFormat = "#,##0 T;-#,##0 T"

会根据需要为 750 T 添加T，而不会在数字750更改时重新运行宏。您可以对此类单元格值进行复制，粘贴，排序和执行常规操作，而不会影响T后缀。