14 excel 不满5，就变成0，单元格区域遍历

一、未执行程序前

二、代码如下
Sub RoundToZero2()
Dim d As Range

For Each d In Worksheets("Sheet1").Range("A1:D10").Cells
If Abs(d.Value) < 5 Then d.Value = 0
Next
End Sub

 三、执行结果

 

学习的例子来源于excelfans。