空白のセルを行削除する。EXCELマクロなのですが・・

質問

VBA初心者です。
データーをHPから、単純にコピーしてきて、
EXCELに貼り付けています。

フィルターをかけても、画像かなにかがセルに張り付いているのか、
空白行をすべて削除できません。

いろいろ試して（HPから、空白セルの行削除について書かれてあるマクロを貼り付けて）動いたのが、このVBAです。

しかし、遅いので、早いVBAに簡略できればいいのですが。。
大体、1000行ぐらいの文字を貼り付けて、3/1ぐらいが空白行です。A行のセルの空白のみを、削除したいのですが。
　まったくの素人なので、わかりません。

どうかよろしくお願いいたします。

Sub 空白の削除()
x% = Worksheets("sheet1").Range("A65536").End(xlUp).Row
For i = x% To 1 Step -1
If Worksheets("sheet1").Cells(i, 1).Value = "" Then Worksheets("sheet1").Rows(i).Delete
Next
End Sub

回答No.1

KenKen_SP · ベストアンサー

とりあえず、

Sub 空白の削除()

の下に

Application.ScreenUpdating=False

を書き足してみて下さい。

回答No.2

Wendy02

こんばんは。

本当に空のセルでしたら、これで出来ると思いますね。

Sub BlankRowsDel()
On Error Resume Next
With Range("A1", Range("A65536").End(xlUp)).Cells.SpecialCells(xlCellTypeBlanks)
　.EntireRow.Delete
End With
On Error GoTo 0
End Sub