下標超出範圍錯誤的VBA

-3

For i = 1 To wss.Cells(Rows.Count, "B").End(xlUp).Row 
    poc(i) = wss.Cells(srow + 3, scolumn).Value  
    wsd.Cells(drow, dcolumn).Value = poc(i) 
    drow = drow + 1 
Next

這是錯誤我得到下標超出範圍錯誤的VBA

下標超出範圍的錯誤

來源

2015-03-31 ASHOK KUMAR

大多數情況下，您使用'wss'，但是您也可以在一行上使用'wsd'。這兩個單獨的變量還是'wsd'是一個錯字？ – barrowc 2015-03-31 02:34:13

另外：使用'Option Explicit'來避免這些類型的錯誤。 – 2015-03-31 02:42:50

這個問題應該有更多的信息。哪一行顯示錯誤？如何定義「drow」，「srow」，「dcolumn」，「scolumn」？ – user3561813 2015-03-31 02:48:54

該錯誤是最有可能由於您poc陣列較小比行計數wss工作表。請重新標註至少與wss.Cells(Rows.Count, "B").End(xlUp).Row相同數量的項目。

此外，請檢查wsd參考是否正確。

來源

2015-03-31 08:22:22

下標超出範圍錯誤的VBA

回答

相關問題