如何在vba中使用下取整函数（附示例）

您可以使用 VBA 中的Floor方法将单元格中的数字四舍五入到最接近的有效倍数。

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

 SubToFloor ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.Floor(Range("A" & i), Range("B" & i))
Next i

End Sub

此特定宏会将范围A2:A10中的每个值舍入为范围B2:B10中指定的最接近的有效倍数，并显示范围C2:C10中的结果。

以下示例展示了如何在实践中使用此语法。

示例：如何在 VBA 中使用 Floor 函数

假设我们在 A 列中有一个值列表，在 B 列中有另一个有效倍数列表，我们希望将每个值舍入为：

我们可以使用 VBA 中的Floor方法创建以下宏，将 A 列中的每个值舍入为 B 列中的有效倍数：

 SubToFloor ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.Floor(Range("A" & i), Range("B" & i))
Next i

End Sub

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

C 列显示对 A 列中的每个值使用Floor方法的结果。

例如，我们可以看到：

• 12.2452 向下舍入到最接近的 0.001 倍数是12.245 。
• 14.927 向下舍入到最接近的 0.01 倍数是14.92 。
• -5.23 向下舍入到最接近的 0.1 倍数是-5.3 。

等等。

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

其他资源

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

如何在VBA中对值进行四舍五入
如何在VBA中对值进行四舍五入
如何在VBA中将值四舍五入到小数点后两位