下記の例は、12列目（L列）のセルに空白が含まれている行を全て削除する。 空白が含まれているセルは定数emptyColで指定する。 Sub deleteEmptyRow() Dim lRow As Long ' 空白セルの有無が探索されるカラム Const emptyCol = 12 Dim i As Long lRow = Cells(…