按四舍六入五留双的规则进行有效数字修约

幼稚园儿童

标记一下，看看以后用得上不

沪上包子

当出现  #VALUE！时，末位无法补0，删掉就好了

wxd95

Function YXSZ(NUMBER As Double, N As Integer)
Dim P As Integer
cc = CDec(NUMBER)
If cc < 1 And Abs(cc) < 1 Then
    CC1 = Split(cc, ".")(1)
    P = Len(CC1) - Len(CC1 * 1)
    YXSZ = WorksheetFunction.Text(VBA.Round(cc, N + P), "0." & Right(10 ^ 9, N + P))
Else
    CC1 = Split(cc, ".")(0) * 1
    M = Len(Abs(CC1))
  If N < M Then
    YXSZ = "有效位数小于整数位数"
  Else
    CC2 = cc / (10 ^ M)
    CC3 = Split(CC2, ".")(1)
    P = Len(CC3) - Len(CC3 * 1)  
    If M = N Then
      YXSZ = VBA.Round(CC2, N + P) * (10 ^ M)
    Else
      YXSZ = WorksheetFunction.Text(VBA.Round(CC2, N + P) * (10 ^ M), "0." & Right(10 ^ 9, N - M))
    End If
  End If
End If
End Function

Excel2119

GBT 8170-2008数值修约规则-Excel加载宏-Excel函数与公式-ExcelHome技术论坛 -  https://club.excelhome.net/thread-803304-1-1.html?_dsign=c1fb5950