小编致力于为大家奉献最有效的经验，让大家能够解决掉问题，但是大家也都知道，每个人遇到的情况都是不一样的，大家在看小编经验的同时，除了跟随操作，也需要自己的思考，举一反三的解决问题，这样才会变得更加有内涵，成为和小编一样的经验达人。excel使用vba将公式转换为公式值的方法，这里，让小编给大家介绍一下。

工具/原料

  • excel2016
  • 此经验本人原创首发，未经本人许可请勿转载。

方法/步骤

  1. 1

    首先我们打开一个工作样表作为例子。

  2. 2

    打开vba编辑器，插入一个新的模块，并在模块中输入以下代码：

    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

  3. 3

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

  4. 4

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

  5. 5

    我们在工作薄内插入一个按钮，并指定宏。运行一下这个宏，看看结果。在编辑栏里我们可以看到所处的单元格正好是一个公式。

  6. 6

    点击宏按钮，我们可以看到单元格编辑栏处不再是公式，而是一个确切的数值。

  7. 7

    先写到这里了，谢谢大家的观看。

    祝大家生活愉快。

    小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。

    看不清楚图片的可以点击放大再看哦。

    END

注意事项

  • 个人经验，仅供参考。
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。