溢出错误6 Excel VBA

Question

我正在使用一个计数器来跟踪某个范围内的真/假条件，该计数器的值用于确定进一步的操作。 但是，即使正在读取小的（15行）数据集，我也会出现溢出错误。 这是代码：

Dim b As Double     'Exceptions Sheet
Dim u As Integer    'Unhandled exception counter

b = 2

Sheets("Exceptions").Activate

Do While Sheets("Exceptions").Cells(b, 2).Value <> ""
    If Sheets("Exceptions").Cells(b, 14).Value <> "A" Then
        u = u + 1
    End If
Loop
    b = b + 1

〜谢谢〜

Answer 1

您没有在循环中更改b的值，因此它只会不断增加u直到溢出