Excel VBA для вставки строки до совпадения текста

Question

У меня есть файл Excel, который должен иметь текст «UNK» как первые 3 буквы ячейки A10 (мне все равно, что будет после UNK).Если он НЕ соответствует этому тексту, мне нужно вставить пустую строку в верхней части файла Excel.По какой-то причине мой код не оценивается правильно, и я не уверен, почему.Я использую:

If Left(A10, 3) <> "UNK" Then
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If

Как вы могли бы сказать, я новичок в этом типе кода.Буду признателен за любую оказанную помощь.

Answer 1

А как насчет этого? Он зацикливается до тех пор, пока A10 не станет пустым или не найдет UNK.

  Do While Range("A10") <> ""
    If Left(Range("A10"), 3) <> "UNK" Then
      Rows("1:1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Else
      Exit Do
    End If
  Loop

Answer 2

Я бы изменил это на:

If Left(Range("A10"), 3) <> "UIC" Then
    Range("A1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If