excel - VBA 舍入函数

Question

在我的一个程序中，我需要计算一系列数字的平均值。问题是，有时答案会出现很大的小数，我需要尝试将其减少到最多两位小数。

我见过一个名为 Excel.WorksheetFunction.Round(...) 的东西，但据我所知，它仅适用于特定数字或特定单元格。我想知道是否有人知道如何实现这一点，以便它将单元格范围内的所有小数四舍五入。

Excel.WorksheetFunction.Round(ActiveSheet.Range(g_first_Function_Col & "2:" & g_first_Function & g_totalRow).Select, 2)

上面的代码尝试对一系列单元格使用舍入函数。 g_first_Function_Col 是某列(如“H”列)，g_totalRow 是其中包含任何值的最后一行。当我尝试运行这段代码时，它告诉我“=”是预期的。本质上，我正在尝试选择整个列并将其舍入。

谢谢，

杰西·斯莫瑟蒙

Answer 1

有两种方法可以做到这一点。

-选择范围并更改数字格式:

Range("myrange").Select
Selection.NumberFormat = "0.00"

-循环遍历范围内的所有单元格并对每个单元格应用舍入函数。在 VBA 中，您无法一次在整个范围内使用 Round 函数。

For Each currentcell In myRange
    currentcell.Value = Math.Round(currentcell.Value, 2)
Next

(上面的伪代码；您需要一个更好的 For..Next 循环来循环遍历范围内的所有单元格。)