如何将包含公式的单元格的值复制到另一个单元格？

Question

在A栏中，我使用的是一个传递到网络的API并返回股票价格。

我想将股票价格（不是公式）自动复制到旁边的单元格中。我知道我可以复制特殊但我希望这是自动发生的。我正在寻找宏来做这件事。

由于

Answer 1

 Sub Demo    
 columns("a").copy
 range("b1").pastespecial xlpastevalues
End Sub