VBAでのフィルタについて（空白行の削除）

空白セルの行を削除しようと下記で処理しようとしているのですが、空白セルでフィルタが掛かりません。
（.Range("A:A").AutoFilter Field:=1, Criteria1:=""""のところで、例えば"0"とかにすると
　ちゃんと0でフィルタが掛かります）
どのようにすれば良いのかご教示お願い致します。

やりたいことは、A列9行目～B列の最終行までの、A列空白行を一括削除したいです。

LastRow = Cells(Rows.Count, "B").End(xlUp).Row
With ActiveSheet
.Range("A:A").AutoFilter Field:=1, Criteria1:=""""
If .Cells(Rows.Count, "A").End(xlUp).Row > 1 Then
Range(.Cells(9, "A"), .Cells(LastRow, "A")).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End If
.AutoFilterMode = False
End With
MsgBox "完了

No.1 ベストアンサー 回答者： t_fumiaki 回答日時： 2018/11/08 14:01

空白セルは""では無く、=で指定します。

Range("A:A").AutoFilter Field:=1, Criteria1:="="

この回答へのお礼

ありがとうございました。
勉強になりました。

お礼日時：2018/11/08 14:50