如何在vba中计算绝对值（附示例）

数字的绝对值表示该数字与零之间的距离。

要在VBA中计算绝对值，可以使用Abs函数。

以下是在实践中使用此功能的常见方法：

 Sub FindAbsoluteValue()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = Abs(Range(" A " & i))
    Next i
      
End Sub

此特定示例计算A2:A10区域中每个单元格的绝对值，并将它们显示在B2:B10区域中。

下面的例子展示了在实践中如何在VBA中计算绝对值。

示例：如何在VBA中计算绝对值

假设我们在 Excel 中有以下值列表：

假设我们要计算 A 列中每个单元格的绝对值并将其显示在 B 列中。

我们可以创建以下宏来执行此操作：

 Sub FindAbsoluteValue()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = Abs(Range(" A " & i))
    Next i
      
End Sub

当我们运行这个宏时，我们会收到以下输出：

B 列现在显示 A 列中每个值的绝对值。

请注意，A 列中的每个正值在 B 列中仍然是正值。

另请注意，A 列中的每个负值均已转换为 B 列中的正值。

注意：您可以在此处找到 VBA Abs函数的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何计算范围的平均值
VBA：如何添加范围内的值
VBA：如何计算范围内的行数