多行搜尋（中間排空）

Question

我想對幾行執行目標搜索（我不知道確切數—在我下面的代碼中，該行停在第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

每次只確保該單元格不為空。 如果是這樣，它將直接移至下一個