目标search多行（中间有空行）

我想执行一个目标寻找几行（我不知道究竟有多less – 在我下面的代码停在100行）。 例如 ，如果我有10行，行号5可以是空的。 所以我希望它从第4行跳到第6行，然后继续，如果存在，则跳转到另一个空行。

我想通过更改单元格K2的值将单元格M2设置为0。 第3行，第4行等等，我希望它跳过空行。

现在我只有这个…一个简单的例子

Sub GSeek() Dim i As Long For i = 2 To 100 range("M" & i).GoalSeek Goal:=0, ChangingCell:=range("K" & i) Next End Sub 

Answer 1

尝试这个

 Dim i As Long For i = 2 To 100 If range("M" & i).Value <> "" Then range("M" & i).GoalSeek Goal:=0, ChangingCell:=range("K" & i) End If Next i 

每次只是确保单元格不是空的。 如果是这样，它会移动到下一个我