Vba：如何将值四舍五入到小数点后两位

您可以使用以下方法使用 VBA 将值四舍五入到小数点后 2 位：

方法 1：将值四舍五入到小数点后 2 位

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

此特定示例会将单元格A2中的值四舍五入到小数点后两位，并在单元格B2中显示四舍五入后的值。

方法2：将范围内的所有值四舍五入到小数点后2位

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

此特定示例会将A2:A9范围内的每个值四舍五入到小数点后两位，并显示B2:B9范围内的四舍五入值。

以下示例展示了如何在实践中使用每种方法。

示例 1：将值四舍五入到小数点后 2 位

我们可以创建以下宏，将单元格A2中的值四舍五入到小数点后两位，并将结果显示在单元格B2中：

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

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

请注意，单元格A2中的值 15.248 在单元格B2中四舍五入到小数点后两位 (15.25)。

示例2：将范围内的所有值四舍五入到小数点后两位

我们可以创建以下宏，将范围 A2:A9 中的每个值四舍五入到小数点后两位，并显示范围B2:B9中的四舍五入值：

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

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

请注意，范围A2:A9中的每个值均已四舍五入到小数点后两位，并且四舍五入后的值显示在范围B2:B9中。

注意：您可以在此处找到 VBA Round方法的完整文档。

其他资源

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

如何在VBA中对值进行四舍五入
如何在VBA中对值进行四舍五入