如下图表格中含有一些数据，现在我们想要利用vba批量将这些数据保留两位小数。

点击表格任意一单元格，然后同时按下Ctrl+A

同时按下Alt+F11

点击sheet1，然后在右边空白区域录入vba代码

点击【运行】，然后选择【运行子过程/用户窗体】

在弹出对话框内输入2，然后点击【确定】即可完成。

完成效果如下图，最后跟大家分享一下本文这里所使用的vba代码，如有需要可以复制粘贴使用。

激活工作表事件

激活工作表，写入除目录外所有表名

作者：如需代做Excel，请百度方方格子

------------------------------------------

Sub 真正的四舍五入()

Dim r As Range

Dim str

Dim bitnum As Double

Dim tmp As Double

-----------------------------

str = Application.InputBox(请输入要保留的小数位数, 输入, 2)

If str = False Then Exit Sub

If Not IsNumeric(str) Then Exit Sub

bitnum = CDbl(str)

If bitnum 0 Then Exit Sub

-----------------------------

For Each r In Selection

If IsNumeric(r.Value) Then

tmp = Application.WorksheetFunction.Round(r.Value, bitnum)

r.Value = tmp

End If

Next

End Sub

如有疑问可以点击下方【我有疑问】，与我沟通交流！！