VBA運行時錯誤13類型不匹配如果報告

Question

我收到運行時錯誤'13'：類型不匹配當我嘗試運行代碼。調試突出了'IF'語句，但我無法弄清楚錯誤在哪裏。任何幫助，將不勝感激。由於

Dim i As Integer 
    Dim lastRow As Long 
    Workbooks("Template Part_II.xlsx").Worksheets(2).Activate 
lastRow = Cells(Rows.Count, 1).End(xlUp).Row 
For i = 2 To lastRow 
    If Cells(i, 1).Value <> "#N/A" And Cells(i, 1).Value <> "00000000-000" Then 
     Cells(i, 1).Copy 
     Worksheets(1).Range("A2:A" & lastRow).PasteSpecial xlPasteValues 
    End If 
Next I 

，事實上我試圖做到這一點：
我有一個表，我有100行各種ID的，我想這個標識複製到沒有這種可能的非ID字符串另一片它可以是＃N/A或00000000-0000，我也不希望那些未複製的單元格在目標範圍內顯示爲空白。

Answer 1

包裝你訪問到校驗這確保了細胞內的細胞不包含錯誤值（例如小區的「包含」一個除以0）像這樣

... 
For i = 2 To lastRow 
    If Not IsError(Cells(i, 1).Value) Then 
     If Cells(i, 1).Value <> "#N/A" And Cells(i, 1).Value <> "00000000-000" Then 
      Cells(i, 1).Copy 
      Worksheets(1).Range("A2:A" & lastRow).PasteSpecial xlPasteValues 
     End If 
    End If 
Next i 
... 

注：I試圖插入的條件在現有If的前面，但它似乎VBA不使用短路因此包裝

---

更新由於評論

您可能希望像這樣更改您的代碼

Dim i As Integer 
Dim lastRow As Long 
Dim targetRow As Long 

Workbooks("Template Part_II.xlsx").Worksheets(2).Activate 
lastRow = Cells(Rows.Count, 1).End(xlUp).Row 
targetRow = 2 
For i = 2 To lastRow 
    If Not IsError(Cells(i, 1).Value) Then 
     If Cells(i, 1).Value <> "#N/A" And Cells(i, 1).Value <> "00000000-000" Then 
      Cells(i, 1).Copy 
      Worksheets(1).Cells(targetRow, 1).PasteSpecial xlPasteValues 
      targetRow = targetRow + 1 
     End If 
    End If 
Next i