VBA中Mod函数判断整数异常，无法删除含小数数据行的问题

问题根源 #

VBA的Mod运算符对浮点数存在精度缺陷。像10.1这类小数，由于二进制存储的精度误差，执行10.1 Mod 1时会返回近似0的极小值，导致判断逻辑失效。

修正方案 #

方案1：用Int/Fix函数判断整数 #

直接对比单元格值和其取整后的值，若相等则为整数，否则删除该行。同时必须反向遍历行，避免正向删除时跳过后续行：

Dim rowNum As Long
Dim ws As Worksheet

Set ws = Worksheets("BOM Dump")
' 从最后一行反向遍历到第1行
For rowNum = ws.Range("A1000").Row To 1 Step -1
    If ws.Cells(rowNum, "A").Value <> Int(ws.Cells(rowNum, "A").Value) Then
        ws.Rows(rowNum).EntireRow.Delete
    End If
Next rowNum

注：Int函数对正数取整和Fix一致，负数时Int会向下取整，若你的数据都是正数，用Int或Fix都可以；如果有负数，根据需求选择。

方案2：精度容错判断 #

考虑浮点数精度误差，用差值的绝对值是否小于极小阈值（如1e-6）来判断是否为整数：

Dim rowNum As Long
Dim ws As Worksheet
Dim cellValue As Double

Set ws = Worksheets("BOM Dump")
For rowNum = ws.Range("A1000").Row To 1 Step -1
    cellValue = ws.Cells(rowNum, "A").Value
    ' 判断差值绝对值是否小于精度阈值
    If Abs(cellValue - Int(cellValue)) > 1e-6 Then
        ws.Rows(rowNum).EntireRow.Delete
    End If
Next rowNum

原代码的额外问题 #

原代码用For Each正向遍历单元格，删除行后会导致后续单元格被跳过（比如删除第5行后，原来的第6行变成第5行，但循环已经走到下一个对象），反向遍历是解决这个问题的标准做法。

内容的提问来源于stack exchange，提问作者Eric