は、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