Excel VBA中运行时错误1004 - 不清楚为什么

Question

我得到运行该代码的运行时错误：

For Each cell In Range("B1").EntireColumn.Cells 
     If cell.Value = ListBox1.Value Then 
      FIng(i) = cell.Row 
      i = i + 1 
     End If 
    Next cell 

    For i = 0 To UBound(FIng) 
     If Cells(FIng(i), 1).Value > 0 Then 'error: application defined 1004 
      MsgBox (Cells(FIng(i), 1).Value) 
     End If 
    Next i 

与注释的行发生错误。我正在做的是检查列中是否有某个值，然后将列行保存在数组中。下一个循环使用此数组访问第一列中的值并显示它。它的工作原理，但我得到这个错误信息，我不知道为什么。

Answer 1

这是循环的正确第二：

For i = 0 To UBound(FIng) 
    If FIng(i) > 0 Then 'error: application defined 1004 
     MsgBox (Cells(FIng(i), 1).Value) 
    End If 
Next i