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