FIX函数应用错误

海艄公

各位老师：


          请帮老师们帮忙看一下附件内的代码错在哪里，为什么红色单元格会等于1，正确应该是等于0才对。
先谢过老师们了！

Sub 校验()
Dim arr
    arr = Sheet2.Range("a2:b" & Sheet2.Range("a65536").End(xlUp).Row)
    For i = 1 To UBound(arr)
         arr(i, 2) = arr(i, 1) - Fix(arr(i, 1))
    Next
    Sheet2.Range("a2").Resize(i - 1, 2) = arr
End Sub

FIX函数.zip

甜蜜基因

博主更新很勤快，支持一下。

倾听风的作曲

思路开阔了不少，谢谢。

做茶壶的小女孩

步骤完整，不会出现半路卡住。

摩卡咖啡

希望以后多分享这类实战经验。

避水金晶兽

排版整洁，阅读体验很棒。

云香丽

案例典型，容易理解。