【1 OSの種類 　 　 　 　 .】 Windows７
【2 Excelのバージョン 　 】 Excel２０１３
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 コピペだけできます

シート集計表のＣ列の２行目以降が「集計」で無い行は、行ごと削除したいので
下のコードを使っているのですが、３０００行位までは実行されるのですが
１０万行以上の件数があると「型が違います」というメッセージがでて、処理が実行できません。
件数が多い場合のコードを教えてください。


Sheets("集計表").Select
For r = Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1
If Cells(r, "C") <> "集計" Then Rows(r & ":" & r).Delete
Next