Sub 空白行削除 selection specialcells xlcelltypeblanks select 空白セルを選択 selection entirerow delete 行全体を削除 end sub 結果は下図のように隣のd列に入力していた数値が削除されて飛び飛びになっています.