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

質問

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

回答No.2

shishishishi · ベストアンサー

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

選択範囲が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

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

セル範囲を選択後

記録マクロで

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

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

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