在列中放下并find一个匹配 – vba

我想使用一个为每个，并通过Excel中的列（.range（A1：A500））来find我的具体值。

例如，从A1开始，往下走，如果我find一个叫做X的东西，那么停下来在上面插入一行。 之后，我想退出我的每一个。

我已经搜查，但我找不到解决scheme，将为我工作。 = /

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

Answer 1

你可以遍历你的范围中的每个单元格，并find这样的匹配：

  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