должен удалить первый символ ячейки, если нет # 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
Есть идеи?
Спасибо