Excel VBA插入行直到文本匹配

Question

我有一个 Excel 文件，其中单元格 A10 的前 3 个字母应为文本“UNK”（我不关心 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