特定のコードを持つ行だけ削除するマクロ（VBA）

今回も、本当に基本的なマクロで、ある特定のコードを持った行だけを削除するマクロになります。Excelのフィルタ機能を使ってコピーしたものを別シートにコピーするという抜け道もありますが、このくらいはVBAでやった方が楽です。

下の図のコード「00001」のコーヒーの行だけ削除するマクロを紹介します。

Sub 特定コードの行を削除する()

'変数の宣言
Dim i As Long
Dim LstRow As Long
Dim Code As String
'最終行の取得
    'Cellの中の「1」は1列目の行（コードの列）を指す
    LstRow = Cells(Rows.Count, 1).End(xlUp).Row 
    '繰り返し処理
    For i = LstRow To 1 Step -1
        Code = Cells(i, 1).Value
        '削除したいコードを"　"の中に入れる。ここでは00001（どら焼き）
        If Code = "00001" Then 
                Rows(i).Delete
        End If
    Next
End Sub