Excel一键设置所选区域小数位数（四舍五入法）1

1、教程以下列数据为例，对保留小数末尾进行四舍五入处理。

3、绘制后会自动弹出指定宏窗口，选择新建选项。

5、在两条代码间，复制粘贴以下代码：Dim k%, m%Dim n As LongDim rng As RangeSet rng = Selection m = InputBox("请输入您要保留小数的位数") n = Application.WorksheetFunction.Power(10, m + 1)For Each rng In Selection rng = rng * n If Right(rng, 1) >= 5 Then rng = Int(rng / 10) + 1 Else rng = Int(rng / 10) End If rng = rng * 10 / nNext

7、选择需要处理的单元格，单击按钮后会弹出一个输入保留小数位数的窗口，输入数值，点击确认即可。