求助：求一个宏，将选定的数据保留小数点2位

lujianwkx

各位大神：

      现在工作中收到下属单位的表格中有大量数据显示为2位（实际多位），且区哉不一定，用ROUND函数一个一个变太费时。不想用选项中的精度设定。需要一个宏，想选定区域后按一下宏的快捷方式自动达到ROUND函数小数点2位的效果。请帮我写一个宏，谢谢！！！

清风竹-

Sub 小数点2位()
On Error Resume Next
For Each a In Selection
   a.Value = Round(a.Value, 2)
Next a
End Sub