试图在for循环中运行if语句，但不断使ERROR 9下标超出范围

Question

我是编写代码的新手，所以我知道这可能是愚蠢而简单的事情，但是每次我尝试运行该程序时，都会出现错误9（下标超出范围）。我不确定是什么原因造成的。

Dim i As Integer

Sub DepotsDue（）对于我= 1至150

 If Worksheets("Sheet6").Cells(B, 2).Value = Worksheets("Sheet2").Cells(E, 1 + i).Value Then
 Worksheets("Depots Due").Cells(A, 5 + i).Value = Worksheets("Weekly").Cells(A, 2 + i).Value
 End If

下一个我

结束子

Answer 1

您的Cells语法错误。这是三种等效的方式来引用您的第二个单元格（Sheet2 E[i + 1]）

Cells(row index, column index) = Cells(2, 2)
Cells(row index, column letter) = Cells(2, "B")