中的VBA将范围内的单元格中的公式更改为值。在本文中，我们将学习如何在Microsoft Excel中使用VBA将单元格中的公式更改为值。

此示例的原始数据包括销售数据。销售数据包含有关不同城市员工销售的商品数量的信息。最后一行和一列包含求和公式，用于查找特定员工在特定城市销售的商品总数。

我们想将活动工作表中的所有公式转换为值。

为了将所有公式转换为值，我们创建了一个宏“ ChangingFormulasToValue”。可以通过单击“将公式转换为值”按钮来运行此宏。

ArrowMain

ArrowOutput

在快照中，可以看到H18单元格中的公式已转换为值。

代码说明

设置SourceRng = Range（“ A1”，Range（“ A1”）。SpecialCells（xlCellTypeLastCell））

上面的代码用于将从单元格A1到工作簿中最后一个单元格的所有单元格分配为范围。

SourceRng.Value = SourceRng.Value上面的代码用于跳过公式

来分配单元格值===请遵循以下代码

Option Explicit

Sub ChangingFormulasToValue()

'Declaring variables

Dim SourceRng As Range

'Specify all cells in the active sheet as range

Set SourceRng = Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell))

'Assigning only value of the cell skipping formula of the cell

SourceRng.Value = SourceRng.Value

End Sub

如果您喜欢此博客，请在Facebook和Facebook上与您的朋友分享。

我们很希望收到您的来信，请让我们知道我们如何才能改善我们的工作并使您的工作更好。写信给我们[email protected]