运行时错误1004.对象未定义

我想从一个范围分配值，同时将表“field team”中的范围视为variables集。 但获取对象/应用程序定义的错误我是新来的VBA（和编码一般），请帮助我！

Private Sub CommandButton1_Click() Dim Arr2(1 To 51, 1 To 1) As Variant Dim i As Integer For i = 1 To 51 Arr2(i, 1) = Worksheets("Sheet1").Cells(1 + i, C) Next i For i = 1 To 51 If Arr2(i, 1) Then Worksheets("Field Team").Cells(i + 78, C).Interior.ColorIndex = 37 Next i End Sub 

Answer 1

小错误，尝试如下：

 Private Sub CommandButton1_Click() Dim Arr2(1 To 51, 1 To 1) As Variant Dim i As Integer For i = 1 To 51 Arr2(i, 1) = Worksheets("Sheet1").Cells(1 + i, 3) Next i For i = 1 To 51 If Arr2(i, 1) Then Worksheets("Field Team").Cells(i + 78, 3).Interior.ColorIndex = 37 End If Next i End Sub