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

1、本教程以圆周率π为例，保留相应的小数位数。

2、绘制一个控制代码按钮，插入一个ActiveX控件，找不到命令的话，可以参考以下链接：

3、绘制按钮之后，会自动弹出一个指定宏窗口，点击“新建”按钮。

4、然后焦点会自动跳转到VBA界面，并弹出一个模块窗口，如图所示。

5、在Sub 按钮1_Click()和End Sub代码之间输入以下代码：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 = Int(rng) rng = rng / nNextEnd Sub

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

7、选中需要处理的区域，点击按钮，弹出保留小数位数窗口。本教程以保留5位小数为例，