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

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

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

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

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

5、在两条代码间，复制粘贴以下代码：

Dim k%, m%

 Dim n As Long

 Dim rng As Range

 Set 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 / n

 Next

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

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