Excel一键设置所选区域保留几位小数（进一法）

1、本教程以下列数据为例，对保留小数末尾采用进一法处理。

2、绘制控制按钮，以插入一个ActiveX控件为例。

具体操作可以参考以下链接：

3、绘制按钮成功后，会自动弹出一个窗口：指定宏窗口。点击右上角的新建。

4、此时Excel窗口会跳转到VBA窗口，并弹出一个模块窗口。

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

Sub 按钮1_Click()

 Dim k%, m%

 Dim n As Long

 Dim rng As Range

 Set rng = Selection

    m = InputBox("请输入您要保留小数的位数")

    n = Application.WorksheetFunction.Power(10, m)

 For Each rng In Selection

    rng = rng * n

    rng = rng + 1

    rng = Int(rng)

    rng = rng / n

 Next

End Sub

6、从VBA界面回到Excel界面。

7、选择需要处理的单元格区域，点击按钮，输入保留小数位数，然后点击Enter键即可。本教程以保留两位小数为例。