用宏怎么做不清楚,VBA高手应该很容易做出来,不过我可以教你另个方法:
选中b1,点击:插入——名称——定义，在定义名称窗口中输入名称X（任意字符）；引用位置中输入：=EVALUATE(Sheet1!$A:$A)&T(NOW()),然后点添加,确定退出.
这样在b1中输入=X,即可以显示A列中公式的结果,然后将B1下拉即可.
这个公式支持数字及单元格引用.
B列的公式也可以使用例如=round(x)等函数实现相关操作
T(NOW())命令是让公式自动重算的,没有它,公式不支持自动重算,改完A的公式后,要按F9手动从算后B列的结果才改变.
