オーバーフローエラー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をインクリメントし続けます