列に合わせて上詰め

質問

E～以降の列で、E列を基準に入力データの配置はそのままの状態で上の空白セルを詰めたいのですが、シートが複数あり空白スペースも各シートで異なるのでマクロなどで一括で処理する方法があれば教えて頂ければ嬉しいです。宜しくお願いします。

回答No.3

web2525

Do While Range("e1") = ""
Rows(1).Delete
Loop

こんな感じかな？

回答No.2

mar00

シートが複数とはどれくらいあるのでしょうか。
マクロで処理するのはそんなに難しくはないと思いますが
10やそこらくらいだったら行を選択して削除で
十分ではないでしょうか。

回答No.1

keithin

たとえば次のようなマクロでしょうか。

sub macro1()
　dim s as worksheet
　for each s in worksheets
　if s.range("E1") = "" then
　　s.range(s.range("IV1"), s.range("E1").end(xldown).offset(-1)).delete shift:=xlshiftup
　end if
　next
end sub

お礼

ありがとうございます。大変助かりました＾＾