excel vba 複数の条件に一致する項目の削除

質問

以下のような表があって、その中から条件に一致する行を削除したいのですが、
よくわからず困っています。

　　　A　　　　B　　　　C　　　　D　　　　E
1　　No,　　伝票種類　管理No,　　日付　　部署
2　　　1　　A伝票　　 16-001　　15/8/29　営業課
3　　　2　　B伝票　　 16-021 15/10/11 販促課
4　　　3　　A伝票　　 16-009 15/9/10 広報課

この表で、
F1セルに「削除する伝票種類」、
F2セルに「管理No,」を入力した後、
シート上に作成したコマンドボタンをクリックすると該当するナンバーの伝票種類、管理No,、部署を削除するようにしたいのです。

For i = 2 To cells(Rows.count, 1 ).End(xlUp).Row
IF cells(i, 2) = Range("F1").value And cells(i,3) = Range("F2").value Then
Range(cells(i , 2) , cells( i , 3) , cells(i , 5)).Select
Selection.Clear
End If

Next i

にすればいいのかなと思ってやってみたのですが、
削除されないのです。VBAに関しては初心者なのでよくわからず困っています。
どなたか助けていただけると嬉しいです。
よろしくお願いいたします。

回答No.1

dogs_cats · ベストアンサー

行を削除する場合はループで毎回削除する場合は最終行からしないといけません。理由は２行目を削除したら次の３行目が２行目になるので３行目を削除する事が出来ないからです。若い行からループ処理で行を削除する方法はありますが割愛します。ネット上にコードはありますので検索下さい。

又、２行目から削除するのに削除する為のデータをF2に設定してはまずいですね。２行目も削除される事があり得ます。F2をG1に変更しました。

Sub test()

Dim i As Long

For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1

If Cells(i, 2) = Range("F1").Value And Cells(i, 3) = Range("G1").Value Then
Rows(i).Delete
End If

Next i

End Sub