溢出錯誤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直到溢出