Excel VBA溢出时分两个双打

当我尝试分割两个双打时，出现溢出错误，我找不到原因。

这是我现在的代码

'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到900万之间，偶尔会高达1700万。 大于20,000的数字几乎总是整数。

Answer 1

它被零差错分开。 VBA刚刚报告为“溢出”。