VBAで特定の行と一つ上の行を削除するマクロについて

VBA初心者なのでご助力願います。（使用ソフトはエクセル2010）


　　A　　B　　C　　D　　E　　
1　　　　　　　　　　　　0
2　　　　　　　　　　　　1
3　　　　　　　　　　　　0
4　　　　　　　　　　　　2
5　　　　　　　　　　　　0
6　　　　　　　　　　　　1

上記の様にE列に0・1・2の数値が入力されており、2行で1セットのデータになっています。
E列に2が入力された行とその1つ上の行（この場合だと3-4行目）を削除するマクロを教えて頂けないでしょうか？

約15000行あり、手作業では厳しい状態です。
よろしくお願い致します。

質問者からの補足コメント

• 補足致します。
  
  ①「2が入力された行」とは「2が入力されている行」でしょうか？
  →「2が入力されている行」で間違い無いです。
  
  ②「2」は必ず偶数行に有ると考えて良いのでしょうか？
  →データの保存の都合上、空白行が存在し、「2」は偶数奇数行入り乱れています。
  
  ③「1」が「2」に変更された場合も削除する機能が必要ですか？
  →不要です。

  No.1の回答に寄せられた補足コメントです。 補足日時：2016/09/25 18:47

• 補足致します。
  
  ２が存在するのは、例のように偶数行だけですか。
  それとも、奇数行にも２が存在した場合、それも処理しますか？
  →No1の方と同じ質問ため省略させて頂きます。
  
  例
  E列3行の値が２のとき、その行を削除し、２行も削除しますか？
  それとも、このE列3行の２はスキップしますか？
  →削除致します。

  No.2の回答に寄せられた補足コメントです。 補足日時：2016/09/25 18:54

• 補足致します。
  
  ① E列に「2」が２つ以上続くことがありますか？
  →ありません。記録している設備は必ず2回計測し、2回目で総合判定するため
  　かならず「0」→「1」or「2」のセットになります。
  
  　　A　B　C　D　E　
  1　　　　　　　　0　　 ：←1回目の計測
  2　　　　　　　　1 or 2：←2回目の計測と判定（判定の結果をE列に出力）
  3　　　　　　　　0　　 ：←1回目の計測
  4　　　　　　　　1 or 2：←2回目の計測と判定
  　
  ②「2」が２つ以上続いたときはどう処理しますか？
  →「2」が連続しないため省略させて頂きます
  
  ③ １行目には「2」はありますか？
  a. 無
  b. １行目は処理しない
  c. １行目だけ削除する
  d. その他
  →「a」理由につきましては①と同じになります。

  No.5の回答に寄せられた補足コメントです。 補足日時：2016/09/25 22:10

No.7 ベストアンサー 回答者： GooUserラック 回答日時： 2016/09/25 22:32

空白行を削除し、スピードアップを図るため画面書き換えを止めた物を載せておきます。

-----------------------------------------------------------------
Sub Sample()
Dim 行 As Long
Application.ScreenUpdating = False
行 = Cells(Rows.Count, 5).End(xlUp).Row
Do While 行 >= 2
If Cells(行, 5).Value = 2 Then
Rows(行).Delete Shift:=xlUp
行 = 行 - 1
Rows(行).Delete Shift:=xlUp
End If
If Cells(行, 5).Value = "" Then Rows(行).Delete Shift:=xlUp
行 = 行 - 1
Loop
Application.ScreenUpdating = True
End Sub
-----------------------------------------------------------------
「If Cells(行, 5).Value = "" Then Rows(行).Delete Shift:=xlUp」で空白行削除です
「Application.ScreenUpdating = False」で画面書き換え停止
「Application.ScreenUpdating = True」で画面書き換え再開です

No.6 回答者： GooUserラック 回答日時： 2016/09/25 22:19

No.5 への補足コメントについて

その条件でしたら先ほどのコードで処理できますが、途中の空白行とかも削除した方が良いですか？

No.5 回答者： GooUserラック 回答日時： 2016/09/25 21:04

さらに確認です。

① E列に「2」が２つ以上続くことがありますか？
②「2」が２つ以上続いたときはどう処理しますか？
a. 上から処理をしていく為「２」がある行の倍数が削除される。
b. 下から処理していく為「2」のある行が偶数続く場合は「2」のある行のみ削除され、奇数の場合は「2」のある行+1行が削除される。
c. その他
③ １行目には「2」はありますか？
a. 無
b. １行目は処理しない
c. １行目だけ削除する
d. その他
-----------------------------------------------------------------
① 有・無どちらも可 ② b. ③ a. の条件ならば、こんなものではいかがですか？
-----------------------------------------------------------------
Sub Sample()
Dim 行 As Long
行 = Cells(Rows.Count, 5).End(xlUp).Row
Do While 行 >= 2
If Cells(行, 5).Value = 2 Then
Rows(行).Delete Shift:=xlUp
行 = 行 - 1
Rows(行).Delete Shift:=xlUp
End If
行 = 行 - 1
Loop
End Sub
-----------------------------------------------------------------

No.4 回答者： baet 回答日時： 2016/09/25 17:26

手作業でできそうです。

1. Ｆ１セルに「=if(or(E1=2,E2=2),-1,row())」と入力します。
2. Ｆ１セルをＦ列全体にコピー＆ペーストします。
3. 削除すべき行は「-1」、残すべき行は行番号になります。
4. Ｆ列全体をコピーしてその場に「値を貼り付け」ます。
5. つまり計算結果を値に変換します。
6. Ｆ列で並べ替えると削除すべき行が上がってきます。
7. それらの行を削除して、最後にＦ列も削除します。
バックアップしてから実行してください。

No.3 回答者： WindFaller 回答日時： 2016/09/25 16:05

F列などに、補助列で数式を加えて、

=F2
=E2=2
(F列の場合）

この2つの数式を選択して下にコピーして、AutoFilter で、True の行だけを出して、まとめて削除すればよいと思います。マクロのレベルではないと思います。

No.2 回答者： tatsu99 回答日時： 2016/09/25 10:22

補足要求です。

２が存在するのは、例のように偶数行だけですか。
それとも、奇数行にも２が存在した場合、それも処理しますか？
例
E列3行の値が２のとき、その行を削除し、２行も削除しますか？
それとも、このE列3行の２はスキップしますか？

No.1 回答者： GooUserラック 回答日時： 2016/09/25 10:12

念の為の確認ですが

①「2が入力された行」とは「2が入力されている行」でしょうか？
②「2」は必ず偶数行に有ると考えて良いのでしょうか？
③「1」が「2」に変更された場合も削除する機能が必要ですか？