excelで入力されてる一番下のセルだけを消したい

質問

エクセルでいちばん下に入力されているセル（最新のセル）を
ラクに消す方法はないでしょうか？

現在はファイルを開いた状態で
ctrl+↓で最新のセルまで行って削除→ctrl+↑で戻ってくる
という方法で作業しています
これをマクロやVBAを使って簡略化することは可能でしょうか？

※ファイルごとに入力されてる数が違うので毎回セル数は違う数

ご回答、よろしくお願いいたします。

回答No.2

keithin · ベストアンサー

たとえば

sub macro1()
　dim h as range
　for each h in application.intersect(selection.entirecolumn, range("1:1"))
　cells(65536, h.column).end(xlup).clearcontents
　next
end sub

といった具合にマクロを実行すると，「選択していた列の最下行セル」をクリアします。

＃何列かまとめて実行しても構いませんが，１列で複数個のセルが選ばれていても，その列では１回しか削除しないように仕込んであります
＃逆に，セル１個だけ選んでる状態でしか動作させないマクロの設計とする事もできます

お礼

ご回答ありがとうございます。
何個もファイルあるので作業がかなり楽になりそうです！
いま、手元にファイルがないので帰宅したら試してみます。

毎回Ｃセルの一番下だけを消したい場合は
selection.entirecolumn　を　selection.c　に変えればいけるんでしょうか？
知識ないので見当違いのこと書いてるかもしれませんが・・・
お時間宜しければ追加で教えていただけると幸いです

回答No.3

keithin

＞Ｃ列

sub macro2()
range("C65536").end(xlup).clearcontents
end sub

＃補足
マクロでは、「具体的に」どのシートのどこ番地のセルをどうしたいという具合に、キチンと目に見えるように「やりたいこと」をキチキチ決めて作成します。
そういったヤリタイ事の説明が、最初のご相談で全く手抜きされているので、こんな風に二度手間三度手間になるのだと反省してください。

また、マクロはプログラムです。思い付きやあてずっぽでデタラメやっても、決して上手くいくことはありません。
何も知らないのはよく判りました。これからマクロを使ってみたいと思っているのでしたら、書店には初歩のマクロの参考書が山積みされていますので、どれでも好きなのを（今の時点ではどれでも同じように役に立ちます）手に取って、まず勉強してください。

お礼

何度もご回答いただきありがとうございました。
仰るとおり初心者向けのマクロ本を買って学んでみようと思います。

回答No.1

K Kazz（@JazzCorp）

お尻：ctrl+Ｅｎｄ
ド頭：ctrl+Ｈｏｍｅ
行の先頭：Ｈｏｍｅ
このくらい？？

お礼

なるほど、そういう手もあるんですね。
ご回答、ありがとうございました