Excel四舍六入五成双纯公式非宏版

Dvencent

宏的话，验证是不是挺复杂呢？闲来无事乱写了个公式，希望有用=if((A2*B2-0.5）/int(A2*B2)=1,int(A2*B2)+mod(int(A2*B2),2),if(A2*B2-int(A2*B2)>0.5,int(A2*B2)+1,int(A2*B2)))/B2
说明：
A2为原始数据；
B2为小数点保留位数，例如：1位小数为10，2位小数为100以此类推；
公式复制在C2栏内




补充内容 (2019-3-3 13:42):
=if((A2*power(10,B2)-0.5)/int(A2*power(10,B2))=1,int(A2*power(10,B2))+mod(int(A2*power(10,B2)),2),round(A2,B2)*power(10,B2))/power(10,B2)
A2:原始数据
B2：小数点保留位数，0、1、2、3……

补充内容 (2019-3-3 14:06):
参考31楼：
0位，=IF((A2-0.5）/int(A2)=1,int（A2）+mod（int（A2））,ROUND(A2,0))
1位，=IF((A2*10-0.5）/int(A2*10)=1,int（A2*10）+mod（int（A2*10），2）,ROUND(A2,1)*10)/10

补充内容 (2019-3-3 14:08):
2位，=IF((A2*100-0.5）/int(A2*100)=1,int（A2*100）+mod（int（A2*100），2）,ROUND(A2,2)*100)/100
3位，=IF((A2*1000-0.5）/int(A2*1000)=1,int（A2*1000）+mod（int（A2*1000），2）,ROUND(A2,3)*1000)/1000

补充内容 (2019-3-3 14:08):
以此类推，欢迎测试

补充内容 (2019-3-3 14:19):
再次简化，这样应该没Bug了，31楼的思路很巧妙啊
0位：=IF(MOD((A1-0.5),2)=1,ROUND(A1,0),A1-0.5)
1位：=IF(MOD((10*A1-0.05),2)=1,ROUND(A1,1),A1-0.05)
2位：=IF(MOD((100*A1-0.005),2)=1,ROUND(A1,1),A1-0.005)

补充内容 (2019-3-3 14:20):
3位：=IF(MOD((1000*A1-0.0005),2)=1,ROUND(A1,1),A1-0.0005)
4位：=IF(MOD((10000*A1-0.00005),2)=1,ROUND(A1,1),A1-0.00005)

补充内容 (2019-3-3 14:39):
round后面的参数忘改了，依次为:round(A1,0),round(A1,1),round(A1,2),round(A1,3),round(A1,4)

补充内容 (2019-3-3 14:55):
测试了，不行，再研究研究吧

补充内容 (2019-3-3 15:34):
还是用这个吧=if((A2*power(10,B2)-0.5)/int(A2*power(10,B2))=1,int(A2*power(10,B2))+mod(int(A2*power(10,B2)),2),round(A2,B2)*power(10,B2))/power(10,B2)
A2:原始数据
B2：小数点保留位数，0、1、2、3……

凛冬将至

以修约A1中的数据为例：
保留至个位：=IF(MOD((A1-0.5),2)=0,A1-0.5,ROUND(A1,0))
保留1位：=IF(MOD((10*A1-0.5),2)=0,A1-0.05,ROUND(A1,1))
保留2位：=IF(MOD((100*A1-0.5),2)=0,A1-0.005,ROUND(A1,2))
保留3位：=IF(MOD((1000*A1-0.5),2)=0,A1-0.0005,ROUND(A1,3))
以此类推。

Dvencent

0位小数：=if((A2-0.5)/int(A2)=1,int(A2)+mod(int(A2),2),round(A2,0))
1位小数：=if((A2*10-0.5)/int(A2*10)=1,int(A2*10)+mod(int(A2*10),2),round(A2*10,0))/10
2位小数：=if((A2*100-0.5)/int(A2*100)=1,int(A2*100)+mod(int(A2*100),2),round(A2*100,0))/100
3位小数：=if((A2*1000-0.5)/int(A2*1000)=1,int(A2*1000)+mod(int(A2*1000),2),round(A2*1000,0))/1000
4位小数：=if((A2*10000-0.5)/int(A2*10000)=1,int(A2*10000)+mod(int(A2*10000),2),round(A2*10000,0))/10000
A2为需要处理的数据
这回应该没问题了，等测试完了再补充吧

Dvencent

可以把B列拖到其他位置隐藏起来

gproe

谢谢分享 ，高手啊

Dvencent

gproe 发表于 2019-2-26 19:55
谢谢分享 ，高手啊

乱写的，估计能简化，希望别被喷

Sunny-xixi

谢谢分享,期望发布更多有用的公式

Sunny-xixi

if((A2*B2-0.5）/int(A2*B2)=1，这块为啥这样设计呢

寂寞雨中行

好高端的样子

Dvencent

试过A2*B2-int(A2*B2)=0.5，但初次写完了还好，但复制公式后就出错，也不知道怎么回事，难道是Excel的Bug？

Dvencent

Sunny-xixi 发表于 2019-2-26 20:41
if((A2*B2-0.5）/int(A2*B2)=1，这块为啥这样设计呢

试过A2*B2-int(A2*B2)=0.5，但初次写完了还好，但复制公式后就出错，也不知道怎么回事，难道是Excel的Bug？

Sunny-xixi

试过没问题

kivy

学习下

公子小德

赞，厉害了，宏验证起来太麻烦

katy

感谢分享，特别好用

尹格里希

牛B，不催不黑

小李飞刀

支持一下

kkvkk

这个不会，学习

Dvencent

群友们有啥需要Excel编公式解决的可以交流交流，闲来无事可以瞎琢磨琢磨

并肩

楼主继续分享，坐等验证数据表，做个懒人，

wch19821228

高手，顶楼主。

阿土豆

借鉴学习，谢谢分享