溢出错误 6 Excel VBA

Question

我正在使用计数器来跟踪范围内的 true/false 条件，该计数器的值用于确定进一步的操作。但是，即使正在读取一个小的（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 直到溢出