Цикл vba for не подсчитывает строки правильно

Это меня действительно сбивает с толку... как так получается, что переменная счетчика "cntr" начинается со значения 11, но в первый раз в цикле она получает значение "102"?

Здесь должно быть "11", и я не понимаю, что происходит.

Вот скриншот codeа рядом с окном debug.print.

введите описание изображения здесь

Вот code:

введите code здесь

Public Sub show_NNN_expenses()
    Dim StartRow As Integer, LastRow As Integer, isCamRow As Integer, ii As Integer, cntr As Integer
    
    StartRow = 11
    LastRow = 200
    ii = 0
    cntr = 11
Debug.Print ("Starting")
    'Loop through the rows
    For ii = StartRow To LastRow
Debug.Print ("StartRow " & StartRow & " Last Row: " & LastRow & " Current Row " & ii & " Cntr: " & cntr)
        'hide rows not "NNN" or "CAM"
        isCamRow = InStr(1, Cells(cntr, 1).Value, "CAM")
Debug.Print ("isCamRow " & isCamRow)

        If isCamRow > 0 Then
            'show row
           ' Cells(ii, 1).EntireRow.Hidden = False
        Else
            'hide row
           ' Cells(ii, 1).EntireRow.Hidden = True
            
        End If
        
        cntr = cntr + 1
    Next ii
        
End Sub
Максимильян
Вопрос задан8 мая 2024 г.

1 Ответ

Ваш ответ

Загрузить файл.