質問: false range("a5:a10").select selection.copy range("a6").select activesheet.paste range("a5").select end sub
回答: はじめまして 「マクロの記録」では解決できません。 自分でマクロを編集する必要があります。 まずは「ms より次の入力が入ります。」のタイミングでマクロを実行する必要があります。 a1の値を変更したら、その都度手動でマクロを実行するのが一番手っ取り早い方法です。 また、「イベントプロシージャ」の「workbook_sheetchange」を使って、a1が変更されたときに自動的にマクロを実行することもできます。 次に、 [a65536].end(xlup).row という数式を使えば、データが入っている一番下の行の番号が分かります。(a65536はa列の一番最後のセルですが、excelのバージョンによって異なります。使用しているexcelで確認してください) もっとも、最後の行を調べなくても、 range("a5").select selection.copy selection.insert shift:=xldown と、「挿入-コピーしたセル」という機能を使えば、自動的にデータを下へずらすことができます。 http://www.jpita.or.jp/hpv3/ziten/mokutekibetu/ex_32.html