こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

投稿日時 - 2018-09-13 13:36:57

QNo.9536864

困ってます

質問者が選んだベストアンサー

"#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

投稿日時 - 2018-09-13 14:28:58

お礼

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

投稿日時 - 2018-09-13 16:58:41

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問