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 

、実際に私はこれをやろうとしている：
は、私は、様々なIDの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 
... 

ノートのようなエラー値が含まれていません：私は条件を挿入しようとしましたしかし、既存のIfの前でVBAがコメントすることは短絡による

---

アップデートを包む使用していないようです

あなたは `For`ため` Next`あるこの

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