Excel 下一步无For-Error

Excel 下一步无For-Error,excel,for-loop,vba,Excel,For Loop,Vba,愚蠢的问题:这段代码没有正确编译,我无法在任何其他下一个问题上找到解决方案。我觉得我错过了一些愚蠢的事情。以下是相关代码: 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"

愚蠢的问题:这段代码没有正确编译,我无法在任何其他下一个问题上找到解决方案。我觉得我错过了一些愚蠢的事情。以下是相关代码:

 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语句,但其中一定有一个是打开的。感谢您抽出时间来解决这么简单的问题。

如果您的代码现在可以正常工作,那么您将丢失并结束它。您不需要在下一条语句中指定单元格。您还可以使用用例代替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