要从具有相同数字格式的单元格复制的编号，并将其显示为形状的标签，而不对数字格式进行任何更改

Question

我在Excel中有一个包含值的单元格，比方说100000。 现在我希望这个值在它们之间有逗号来表示数千和数百万，即100,000。我可以通过更改主菜单中的数字格式来完成此操作。 现在我希望从该单元格中复制该值并将其粘贴为形状的标签。当我这样做时，逗号会消失，只显示数字。 我希望它通过VBA发生，但这不会发生在excel本身。

有没有人对此有合理的解决方案？

Answer 1

在范围对象中使用Text属性，如下所示：

Sheet1.Shapes(1).TextFrame.Characters.Text = Range("A1").Text