以下のマクロは、ソートせずに空白行を削除します。(画面更新をオフにすると、その分、高速になります。) SubDeleteBlankRows()DimxAsLongWithActiveSheetForx=.Cells.SpecialCells(xlCellTypeLastCell).RowTo1Step-1IfWorksheetFunction.CountA(.Rows(x))=0ThenActiveSheet.Rows(x).DeleteEndIfNextEndWithEndSub ...