пропустить значение в цикле

[Bape}l{ka]

привет всем))

подскажите плз, как исключить проверку значения в цикле
надо чтоб перескакивало определенное значение, т.е. ничего с ним не делало.
такой способ не прокатывает =ь

    For v = 1 to 1001
        'MsgBox v
        If v = 999 Then Next v   '  РУГАЕТСЯ
        i = i + 1 
        ThisWorkbook.Worksheets(ListName_).Cells(i, 3).Value = v
    Next v

если числа, можно просто написать v = v+1
НО если это массив, да еще не числовой???

[Казанский]

For v = 1 to 1001
    'MsgBox v
    If v <> 999 Then i = i + 1: ThisWorkbook.Worksheets(ListName_).Cells(i, 3).Value = v
Next v

или

For v = 1 to 1001
    'MsgBox v
    If v <> 999 Then
        i = i + 1
        ThisWorkbook.Worksheets(ListName_).Cells(i, 3).Value = v
    End If
Next v

[Serge_Bliznykov]

читайте
Аналог continue в VBA

особенно пост #6

p.s. В вашем случае я бы изменил условие на обратное и не морочился:

  For v = 1 to 1001
        'MsgBox v
        If v <> 999 Then 
           i = i + 1 
          ThisWorkbook.Worksheets(ListName_).Cells(i, 3).Value = v
        End If
    Next v

ДОБАВЛЕНО

Казанский, когда я писал, Ваш код не видел...
Но обратите внимание, что в Вашем примере наращивание i = i + 1 выкинуто.
Это неравнозначная замена исходному коду получается!

ЕЩЁ ДОБАВЛЕНО
вижу, теперь исправлено, моё замечание (отмечено серым) потеряло актуальность..

[Bape}l{ka]

точно, что-то не догадалась с этими массивами =ь

[Казанский]

Это неравнозначная замена исходному коду получается!

Исправил.

[Bape}l{ka]

да-да, я поняла) мне идейно хватило, что мы просто обратное условие ставим) спасибо