Vb编程调试运行时错误

Question

我在excel中对VBA完全陌生。下面是我的代码，每当我尝试运行它时，它会说：

  

“运行时错误'244'：需要对象”。

我不知道该怎么做，有人可以帮我这个吗？

Private Sub Workbook_Open()

Dim a, b, LastRow1, LastRow2 As Integer

LastRow1 = Sheets("BOM2").Range("A" & Rows.Count).End(xlUp).Row
LastRow2 = Sheets("SKU").Range("A" & Rows.Count).End(xlUp).Row

For a = 2 To LastRow1
 For b = 2 To LastRow2

If Sheets("BOM2").Cells(a, "D").Value = Sheets("SKU").Cells(b, "D").Value Then
  Sheets("SKU").Cells(b, "D").EntireRow.Copy Destination:=Sheets("Final").Range("A" & Row.Count).End(xlUp).Offset(1)

End If
Next b
Next a

End Sub

Answer 1

Range("A" & Rows.Count)

应该是

arr[i] = i%2;