[blackeangel]

Iska, всё сначало было на like, но не давало нужного результата, поэтому было принято решение добавить там где необходимо regexp. Конечно, можно отказаться от like и использовать regexp, но кода от этого увеличится только.

iglezz, вот да, выход из while нужно, и очевидно пропущен.

Код:

Do While Cells(i, Ncolumn2).Value <> Empty
        strValue = Cells(i, ncolumn).Value
        Set objRange = Cells(i, ncolumn + 1)
    
        objRegExp.Pattern = "^5085"
        
        If objRegExp.Test(strValue) Then
            objRange.Value = "С85"
            GoTo Continue
        Else
       ......
    Continue:
    i=i+1
Loop

А так вы оба правы, вообще надо бросать этот while и переходить на for