http://club.excelhome.net/thread-216653-1-1.html建议你看下此篇文章4楼
公式值转换为数值的问题?
如何把下面的方法变为,当选中EXCL中的某个单元格时,点击按钮,就自动执行选择性粘贴,把公式值转换为数值,而不是把整个表都转换呢?
提供一方法 按一钮,活动工作表公式都变成值
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = Target.Value
End Sub
放在对应的工作表下即可