在列中下来并找到匹配 - vba

Question

我想在每个中使用a并通过Excel中的列（.range（A1：A500））来查找我的特定值。

例如 从A1开始向下穿过单元格，如果我找到一个叫做X的东西，然后停下来并在上面插入一行。在此之后我想退出我的每一个。

我已经搜索过，但我找不到适用于我的解决方案。 = /

我很感激在这种情况下提供任何帮助。

Answer 1

您可以遍历范围内的每个单元格并找到如下匹配项：

 Dim r as range
 For each r in range("a1:a500")
     If r = X then
        'found it
         if r.row>1 then
         rows(r.row-1).insert
         else
          rows(1).insert
         end if
         exit for
     end if
 Next r