接下來無For - 錯誤

Question

愚蠢的問題：此代碼編譯不正確，我無法找到任何其他「沒有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

你錯過了，如果你的代碼現在可以工作，就結束了。您不需要在Next語句中指定Cell。您也可以使用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 

希望它有幫助。