小数点第三位数遇到5保留，遇到6进位其它舍弃

jylai

最终想得到C列结果

您的帮助不胜感激

魚。。

1. =LET(魚,ROUNDDOWN(A2,3),IF(--RIGHT(魚)=5,魚,ROUND(魚,2)))

复制代码

jylai

老师太厉害了，感谢您热心帮助
没有收到花的老师请耐心等几天了，因为花数太少了.（一定会补上）

啸海

=ROUND(A2,2)-(MID(A2,FIND(".",A2)+3,1)="5")/200

jylai

感谢两位老师  !

秃头发师

=ROUND(ROUNDDOWN(A2,3),2+(--RIGHT(ROUNDDOWN(A2,3))=5))

xtmyd5156

按你的描述不看数据就掉沟里了，差点以为只有六近其他全舍了。

沈默00

参与一下
=MAP(A2:A27,LAMBDA(x,LET(s,--REGEXP(x,"\d+\.\d{3}"),IF(RIGHT(s)/1=5,s,ROUND(s,2)))))

niko88819

VBA自定义函数
B2 公式下拉

1. =niko(A2)

复制代码

1. Function niko(num As Double) As Double
   
2.     Dim sn As Double
   
3.     Dim td As Integer
   
4.     sn = num * 1000
   
5.     td = Int(sn) Mod 10
   
6.     Select Case td
   
7.         Case 5
   
8.             niko = Fix(num * 1000) / 1000
   
9.         Case 6
   
10.             niko = Round(num, 2)
    
11.         Case Else
    
12.             niko = Round(num, 2)
    
13.     End Select
    
14. End Function

复制代码

jylai

niko88819 发表于 2025-4-17 20:39
VBA自定义函数
B2 公式下拉

感谢老师  !