下标超出范围错误的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

回答

相关问题