行を削除するマクロ

質問

a列には数値が入っています。
2行目から、a列の数値が最大かつ最下の行(この場合は12行目)までを削除するマクロのvbaの構文を教えてください。
削除するのは行全体で、a列だけではありません。
エクセル2010です。
どうぞよろしくお願いします。

回答No.1

keithin · ベストアンサー

sub macro1()
　dim h as range
　if application.count(range("A:A")) = 0 then exit sub
　set h = range("A:A").find(what:=application.max(range("A:A")), lookin:=xlvalues, lookat:=xlwhole, searchdirection:=xlprevious)
　range(range("A2"), h).entirerow.delete shift:=xlshiftup
end sub
みたいな。

お礼

どうもありがとうございます。