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

试试这个

跳过空白的目标寻求宏循环

1 个答案: