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

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

2、绘制一个控制代码的按钮，本教程以插入一个表单控件为例，具体操作可参考以下链接：

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

4、跳转到VBA界面时，且自动弹出了一个模块窗口。

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

6、关闭VBA窗口，回到Excel窗口。

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