vba - 在 Excel 中扫描工作表并以 0.5 为增量四舍五入

Question

我在 Excel 中有大量数据点到小数点后一位，我需要扫描数据并将所有值四舍五入到 0.5 个增量。即：如果它的 10.1 它应该是 10.0，如果它的 10.3 它应该是 10.5。此外，我希望它使用新的舍入数字将整行粘贴到单独的工作表上。

Answer 1

我不确定是否将整行复制到单独的工作表中......但这里有一些可能的方法：

在表 1 中，我有带有几位小数的随机数的公式

在 sheet2 中，我使用 mround 舍入到最接近的 0.5

在表 3 中，我使用公式来获取发生舍入的值。（但不是整行。我不了解您的数据布局，所以我不确定需要复制什么。

要解决负数问题...问题是当使用 mround 时，如果四舍五入的值为负数，系统会强制您使用负十进制值。由于在这种情况下您不知道哪些值是正值或负值，因此您必须将它们全部转换为正值（我想 ABS 也可以），然后检查原始值是否为负值，然后乘以 -1 如果它是。

=MROUND(IF(Sheet1!A2<0,Sheet1!A2*-1,Sheet1!A2),0.5)*IF(Sheet1!A2<0,-1,1) 在工作表 2 的公式中。