Excel中,如何把公式计算出的结果转变为数值,不再受之前的公式影响

1年前 (2017-08-18) dyfwind 计算机应用技术 0评论 已收录 740℃

一直纠结这个事情,看网上清一色回答的复制,选择性粘贴,要是这么简单的需求,还会铺天盖地的问吗?

其实这个方法也不算正确解决,通过点击宏命令按钮,将计算结果变成数值;

Sub 公式转换数值()

Dim rng As Range, c As Range

Set rng = ActiveSheet.Range("A1").CurrentRegion

For Each c In rng.Cells

If c.HasFormula Then

c.Value = c.Value

End If

Next

End Sub

定义了两个变量rng和c。其属性为区域变量。同时设置rng值为活动工作薄

使用逐步循环判断语句for each判断单元格内的数据是否为公式c.HasFormula即是对单元格数据的判断条件。如果是,则取该单元格的公式计算值为该单元格值

在工作薄内插入一个按钮,并指定宏


本意是全自动,这么操作其实还是有些鸡肋的,不过要是有另外一张表引用,效果还行吧,希望能找到更好的解决方法。

博主

这货来去如风,什么鬼都没留下!!!

相关推荐

嗨、骚年、快来消灭0回复。