关于excel里修约问题

请问谁手里有excel按照4舍6入5单双的修约方法，最好是正确率高的方法，能分享一下吗，感谢！

=IF(INT((AVERAGE(A1:B1))/$C$1/2)=INT((AVERAGE(A1:B1))/$C$1)/2,INT((AVERAGE(A1:B1))/$C$1+0.49)*$C$1,INT((AVERAGE(A1:B1))/$C$1+0.51)*$C$1)
A1、B1填数据，$C$1是分度值，在A2格子里输入上面内容

我之前试过百度上的方法，一小段宏代码就行了。用宏的话用起来很方便但文档传给其他电脑后有可能会被禁掉。