今天跟大家分享一下如何利用vba实现数据四舍五入
工具/原料
Excel
方法/步骤
1、如下图表格中含有一些数据，现在我们想要利用vba批量将这些数据保留两位小数。
2、点击表格任意一单元格，然后同时按下Ctrl+A
3、同时按下Alt+F11
4、点击sheet1，然后在右边空白区域录入vba代码
5、点击【运行】，然后选择【运行子过程/用户窗体】
6、在弹出对话框内输入2，然后点击【确定】即可完成。
7、完成效果如下图，最后跟大家抵足谛垴分享一下本文这里所使用的vba代码，如有需要可以复制粘贴使用。'激活工作表事件'激活工作表，写入除目玲膛宀耱录外所有表名'作者：如需代做Excel，请百度方方格子'------------------------------------------Sub真正的四舍五入()DimrAsRangeDimstrDimbitnumAsDoubleDimtmpAsDouble'-----------------------------str=Application.InputBox("请输入要保留的小数位数","输入","2")Ifstr=FalseThenExitSubIfNotIsNumeric(str)ThenExitSubbitnum=CDbl(str)Ifbitnum<0ThenExitSub'-----------------------------ForEachrInSelectionIfIsNumeric(r.Value)Thentmp=Application.WorksheetFunction.Round(r.Value,bitnum)r.Value=tmpEndIfNextEndSub
