должен удалить первый символ ячейки, если нет # 3Созданный цикл никогда не заканчивается

В общем, мне нужно удалить все записи, которые нев поле первичного ключа в качестве второй цифры должно быть 3, которое, например, может выглядеть так:

#39001

Или без № 3

Я хочу, чтобы все ячейки, у которых не # 3 начало, их строки были удалены. Я придумал следующий код: он удаляет все, но макрос никогда не останавливается.

 Sub keep3()
    '
    ' RemoveNum Macro
    Dim i As Integer
    i = 2
    While i < 14000
        If InStr(Cells(i, 2), "3") = 2 Then
            ' Do nothing
            i = i + 1
        Else
            Rows(i).EntireRow.Delete
            ' Note - not incrementing i here
        End If
    Wend
    End Sub

Есть идеи?

Спасибо

Ответы на вопрос(1)

Ваш ответ на вопрос