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確保沒有別的東西被執行。