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

Posted 2023-02-25

【中文标题】VBA 对于没有下一个错误的简单脚本

【英文标题】：VBA For without next error with simple script

【发布时间】：2015-08-20 13:01:04

【问题描述】：

下面是我写的简单脚本。我不知道为什么它给了我错误：因为没有下一个。我已经搜索过了，我能找到的唯一解释可能是我的计算机运行这个脚本太慢了，尽管我知道这不可能。请帮忙。

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

【问题讨论】：

我正确缩进了你的代码。也许这会帮助你在这里看到你的错误。

谢谢你，但它仍然给我 for 没有下一个错误：/

当然是。除了您的缩进，我没有更改任何内容，以帮助您了解哪里出错了。

【参考方案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 确保不会执行任何其他操作。

【讨论】：

啊。我以为你必须在“那么”之后给它一个命令。谢谢！

如果对您有帮助，请随时接受这个答案。