目標尋找宏循環跳過空白

Question

我很新VBA。我一直試圖通過嘗試和閱讀論壇來學習，但我很茫然。

Sub Macro() 

Dim i As Long 
    For i = 1 To 100 
     ActiveCell.Offset(1, 0).Select 
     ActiveCell.GoalSeek Goal:=1, ChangingCell:=ActiveCell.Offset(0, -3) 
    Next i 
End Sub 

這是我在論壇上找到的或多或少的，它適用於隨機數字的列，這是很好的。但我需要它跳過空白單元格。另外，我需要它只應用宏可見細胞（當過濾）。

我找到了這個問題的答案，但我不知道如何將它們插入到我的代碼中。

Answer 1

Sub Macro() 

Dim i As Long 
    For i = 1 To 100 
     If ActiveCell.Value = "" then GoTo here 
     ActiveCell.Offset(1, 0).Select 
     ActiveCell.GoalSeek Goal:=1, ChangingCell:=ActiveCell.Offset(0, -3) 
here: 
    Next i 
End Sub 

試試這個