Sub 空白行を上詰め() Selection.SpecialCells(xlCellTypeBlanks).Select Selection.Delete Shift:=xlUp End Sub Sub 整理() Selection.CurrentRegion.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp Columns("B:C").Insert Dim i As Long For i = 1 To…