在VBA中重复代码

debugcn 发表于 Dev

没有人

我有以下代码，需要重复1000次：

Option Explicit

Sub Turn()


Range("f2").Select
If Range("e2").Value = "00/00/00" Then
    ActiveCell.Value = 0

ElseIf Range("e2").Value Then
    ActiveCell.Value = Range("e2")

End If

Range("f2").Select
    If ActiveCell.Value > 0 Then
        Range("G2") = Range("f2") - Range("b2")

End If
End Sub

我是新来的，所以我不知道这是否是解决我的问题的最优雅的方法，但是确实可以。问题是我需要为1000行使用相同的代码，并且要多次手动更改单元号似乎是一项艰巨的任务。

您能帮我解决我的问题吗？

感谢您的帮助，在此先感谢您。

联合会

您可以使用“ for循环”来实现。这应该在正确的行上：

Option Explicit

Sub Turn()

Dim i As Long

For i = 2 to 1001
    Range("f" & i).Select
    If Range("e" & i).Value = "00/00/00" Then
        ActiveCell.Value = 0

    ElseIf Range("e" & i).Value Then
        ActiveCell.Value = Range("e" & i)
    End If

    Range("f" & i).Select
        If ActiveCell.Value > 0 Then
            Range("G" & i) = Range("f" & i) - Range("b" & i)
        End If
Next i

End Sub

尝试一下，看看能到哪里，让我们知道如何进行:)

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。