マクロ 行を切り取ってペーストでエラーになる

質問

J列に「0」と「#N/A」の行を切り取って集計対象外シートに貼り付けるといったコードです。
何故か途中でエラーになります。
どこが間違っておりますか？
宜しくお願いします。

Dim LastRow As Long
LastRow = Cells(Rows.Count, 10).End(xlUp).Row
For i = 1 To LastRow
If Cells(i, 10) = "0" Or Cells(i, 10) = "#N/A" Then
Rows(i).Cut Sheets("集計対象外").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Next i

回答No.1

watabe007 · ベストアンサー

"#N/A" は値の比較ではなくエラーの判定を行う必要があります。
Dim LastRow As Long, i As Long

LastRow = Cells(Rows.Count, 10).End(xlUp).Row
For i = 1 To LastRow
If IsError(Cells(i, 10).Value) Then
Rows(i).Cut Sheets("集計対象外").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
ElseIf Cells(i, 10).Value = "0" Then
Rows(i).Cut Sheets("集計対象外").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Next i
End Sub

お礼

ありがとうございます！
おかげさまでうまくいきました。