划分两个Double时Excel VBA溢出

Question

当我尝试将两个双精度数相除时出现了溢出错误，但我不知道为什么。

这是我现在的代码

'x will be used to sum the elements  
Dim x, ct As Double
x = 0
ct = 0
For Each cell In Range(rng)
    If cell.Offset(, offset1).Value = Crit1 And cell.Offset(, offset2).Value = Crit2 Then
        x = x + cell.Value
        ct = ct + 1
    End If
Next

'Divide by count
Avg = x / ct

最初， ct被声明为Long ，但是我将其更改为Double以查看是否可以解决该问题，但是没有解决。

我也尝试将最后一行更改为Avg = CDbl(x / ct) ，但出现相同的错误。

cell.Value的值将始终是实数，通常在0到大约9,000,000之间，偶尔会高达17,000,000。 大于约20,000的数字几乎总是整数。

Answer 1

它除以零误差。 VBA刚刚将其报告为“溢出”。