Ошибка переполнения 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, пока она не переполняется