嘿，我完全懂你遇到的这个坑——明明单元格显示都是三位小数，但程序比较的时候却像是按两位小数在判定，这大概率是Excel的显示格式和实际存储数值不一致搞的鬼！

问题根源 #

Excel的单元格格式只是用来控制显示效果，底层存储的是真实计算出来的数值。比如你D列的均值控制限，如果计算时用了ROUND(AVERAGE(xxx),2)，那它实际存储的就是两位小数的舍入值，哪怕你把单元格格式改成三位小数，显示的最后一位只是补0，但实际值还是两位精度的。而B列的数值是三位小数的真实值，这时候直接比较就会出现和你看到的显示结果不符的情况。

另外要注意Debug.Print的细节：如果写Debug.Print Cells(i, 4)，它输出的是单元格的显示文本；如果是Debug.Print Cells(i, 4).Value，才会输出底层的实际存储数值，你可以用后者确认D列的真实值到底是多少。

解决方案 #

这里给你两个靠谱的处理方向：

1. 确保均值计算保留足够精度

如果你的均值控制限应该是三位小数，那计算的时候不要提前舍入。比如把原来的：

Cells(i, 4).Value = Round(AVERAGE(your_range), 2)

改成：

Cells(i, 4).Value = AVERAGE(your_range)

这样D列存储的就是完整的均值计算结果，再把单元格格式设为三位小数显示，比较时就会用真实的三位精度数值。

2. 比较时统一精度

如果因为业务需求必须保留D列的两位小数存储，那在比较的时候，把B列的数值也统一舍入到相同精度再对比。比如把原来的比较逻辑：

If Cells(j, 2) > Cells(j, 4) Then

改成：

' 统一舍入到三位小数比较，也可根据需求改成两位
If Round(Cells(j, 2).Value, 3) > Round(Cells(j, 4).Value, 3) Then

这样就能保证比较的是相同精度下的数值，和你看到的显示结果一致。

调整后的代码片段参考 #

Sub seven_above_average()
    Dim i As Integer, j As Integer, count As Integer
    Dim lastRow As Integer
    Dim avgLimit As Double ' 用Double存储避免精度丢失
    Dim currentVal As Double
    
    lastRow = Cells(Rows.Count, 2).End(xlUp).Row
    
    For i = 1 To lastRow - 6 ' 遍历到倒数第7行，找连续7个值
        count = 0
        avgLimit = Cells(i, 4).Value ' 取D列真实存储值
        For j = i To i + 6
            currentVal = Cells(j, 2).Value
            ' 统一精度后比较
            If Round(currentVal, 3) > Round(avgLimit, 3) Then
                count = count + 1
            Else
                Exit For ' 不满足就跳出内层循环
            End If
        Next j
        If count = 7 Then
            ' 这里写找到连续7个值后的处理逻辑
            MsgBox "找到连续7个高于均值的行：第" & i & "行到第" & i + 6 & "行"
        End If
    Next i
End Sub

小排查技巧 #

你可以加一行Debug输出确认真实数值：

Debug.Print "B列真实值：" & Cells(j,2).Value & " | D列真实均值：" & Cells(j,4).Value

这样就能清楚看到比较的两个值到底是什么，排查问题更高效。

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