エクセルのマクロで、選択範囲の空白行を削除する方法

タイトルの通りですが、エクセルのマクロを使って、選択範囲にデータの入っていない空白行を削除するマクロを作りたいのですが、うまく行きません。
（空白行の判定は、１つの列だけで、Ｏ．Ｋ．です。）
どなたか、詳しい方、アドバイスお願いします。

No.2 ベストアンサー 回答者： shishishishi 回答日時： 2003/10/27 23:13

こういうやり方もあります。

選択範囲が1～100行で、空白行の判定をA列で行っていますので適宜修正してください。

Sub TestMacro()
Dim i As Integer
For i = 1 To 100
If Sheets("Sheet1").Cells(i, "A") = "" Then
Sheets("Sheet1").Rows(i).Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub

No.1 回答者： comv 回答日時： 2003/10/27 23:06

こんばんは　参考程度ですが

セル範囲を選択後

記録マクロで

編集　ジャンプ　セル選択　空白セル　にチェック　ＯＫ
編集　削除　行全体　ＯＫ

で以下のように生成されます

Sub Macro1()
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
End Sub