没有For的下一个 - 错误

Question

愚蠢的问题：这段代码没有正确编译，我找不到任何其他“Next without For”问题的解决方案。我有一种感觉，我只是错过了一些愚蠢的东西。这是相关的代码：

 For Each Cell In CHWAssigned
    If Cell = "" Then
        If Cell.Row Mod 3 = 0 Then
            Cell.Value = "DM"
        ElseIf Cell.Row Mod 3 = 1 Then
            Cell.Value = "CWS"
        ElseIf Cell.Row Mod 3 = 2 Then
            Cell.Value = "CF"
    Else
    End If
Next Cell

我想我已经关闭了所有的If语句，但是那里必须有一个是开放的。感谢您花时间解决这么简单的事情。

Answer 1

您缺少并结束if，您的代码现在应该正常工作。您无需在Cell声明中指定Next。您也可以使用Case代替ElseIf。

For Each Cell In CHWAssigned
   If Cell = "" Then
       If Cell.Row Mod 3 = 0 Then
          Cell.Value = "DM"
       ElseIf Cell.Row Mod 3 = 1 Then
          Cell.Value = "CWS"
       ElseIf Cell.Row Mod 3 = 2 Then
          Cell.Value = "CF"
       End If
    End If
Next

希望它有所帮助。