(VBA)特定の数字以外の行を削除する方法

エクセルでA1の列で【13】以外の数字・文字を含む行を削除したいのですが。

マクロを記録させると行数が指定されてしまいこれではVBAができない…
どうしたら削除できるでしょうか？
よろしくお願いします。

*********マクロ記録した内容*******************
Selection.AutoFilter
ActiveSheet.Range("$A$1:$D$327").AutoFilter Field:=1, Criteria1:="<>12", _
Operator:=xlAnd
Rows("26:26").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$1:$D$325").AutoFilter Field:=1
Range("A1").Select

No.1 ベストアンサー 回答者： GooUserラック 回答日時： 2016/11/14 15:08

こんなことでしょうか？

----------------------------------------------------------
Sub Macro()
Columns("A:D").Select
Application.CutCopyMode = False
Selection.AutoFilter Field:=1, Criteria1:="<>13", Operator:=xlAnd
Range(Cells(2, 1), Cells(Rows.Count, 4)).Delete Shift:=xlUp
Selection.AutoFilter
Range("A1").Select
End Sub
----------------------------------------------------------
※ ちなみに元のマクロの記録だと【13】ではなく【12】になってしまうと思いますが…

この回答へのお礼

早速ありがとうございました。
エラーもなく出来ました！
指定する数字は私の入力ミスです、すいません（^人^）
勉強になりました。助かりました。

お礼日時：2016/11/14 17:18