VBA用于没有简单脚本的下一个错误

Question

下面是我写的简单脚本。我不知道为什么它会给我错误：因为没有下一个。我搜索过，我能找到的唯一解释可能是因为我的电脑运行速度太慢，即使我知道情况并非如此。请帮忙。

For y = 2 To tbl.ListRows.Count
    If Month(tbl.DataBodyRange(2, 1)) = Month(tbl.DataBodyRange(2 - 1, 1)) Then
        Next
    Else
        months = months + 1
        Next
    End If
    Exit For

Answer 1

您的方法不是如何使用for循环。您始终以For ... To开头，并在循环的最后以Next结束。

For y = 2 To tbl.ListRows.Count
    If Month(tbl.DataBodyRange(2, 1)) = Month(tbl.DataBodyRange(2 - 1, 1)) Then
        'do nothing here
    Else
        months = months + 1
    End If
Next

这样它应该有效。也许您希望Next语句在循环中开始下一次迭代。但if-case确保无论如何都不会执行任何其他操作。