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

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

2、绘制控制按钮，以插入一个ActiveX控件为例。具体操作可以参考以下链接：

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

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

5、在两代码间复制粘贴以下代码：Sub 按钮1_Click()Dim k%, m%Dim n As LongDim rng As RangeSet 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 / nNextEnd Sub

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

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