Sub 条件の合った行を削除する()
‘サンプル1 条件の合った行を削除する
‘ 変数宣言（a の部分は、同じマクロ内で使用できないので、使用する場合は変更する）
Dim a As Long

‘ A列の一番下のデータから上方向に向かってループを回して
For a = Range(“A1”).End(xlDown).Row To 2 Step -1
‘ B列のに、特定の文字があったらその行を削除
With Cells(a, “B”)
If _
.Value Like “特定” Then
.EntireRow.Delete
End If
End With
Next a
End Sub