質問: "" then application.rows(i).delete end if next end sub
回答: こんにちは! 範囲はa1~m30セルと決まっているのですかね? そしてお示しの画像を拝見すると行方向に関しては重なりはないようなので、一例です。 空白セルは数式などは入っていないという前提で! range(cells(1, 1), cells(30, "m")).specialcells(xlcelltypeblanks).delete shift:=xlup の1行だけで処理できそうです。m(_ _)m