不要行削除

不要行削除

データが何も入っていない行を削除し、詰めたい時に便利なマクロです。
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

データが入っている行を全て非表示にし、残った行だけ削除し、非表示にした行を表示させています。