Excelで空白行を削除したい

質問

2500行位使用しているシートのなかに、どのセルも空白になっている不要な行が300行くらい混ざっています。
この行を自動的に削除するにはどうすれば良いでしょうか。

ただ、その行のA～Eセルは空白でもFセルに値が入っているなど完全に空白でない行は削除できません。

メニュー、関数、VBAなど有れば教えてください。

回答No.1

izmlz · ベストアンサー

マクロで何もデータ、数式、コメントが入っていない行を削除するには↓です。

Sub DeleteBlankRows()
　Application.ScreenUpdating = False
　　On Error Resume Next
　　With Cells
　　　.SpecialCells(xlCellTypeConstants).EntireRow.Hidden = True
　　　.SpecialCells(xlCellTypeFormulas).EntireRow.Hidden = True
　　　.SpecialCells(xlCellTypeComments).EntireRow.Hidden = True
　　　.SpecialCells(xlCellTypeVisible).EntireRow.Delete
　　　.EntireRow.Hidden = False
　　End With
　Application.ScreenUpdating = True
End Sub

詳しくは↓をご覧ください。

エクセル技道場－空白行を行削除
http://www2.odn.ne.jp/excel/waza/macro.html#SEC4

参考URL：

http://www2.odn.ne.jp/excel/waza/macro.html#SEC4

お礼

有り難うございます