• ベストアンサー

Excelのマクロで最下行を選択して「一行挿入する」マクロの記述を

Excelのマクロで最下行を選択して「一行挿入する」マクロの記述を教えてください。 ちなみにA列の一番下の行を選択し、その上に一行入れたいのです。 よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • moon_piyo
  • ベストアンサー率60% (88/146)
回答No.1

こんちは Range("A65536").End(xlUp).EntireRow.Insert

takuya_9769
質問者

お礼

コピペして実行してみました。希望通りに行挿入されました。どうもありがとうございました。

その他の回答 (1)

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

マクロの記録をとればよい。 一番下行を選択（一番下のデータより下で、ＥＮＤキーの後矢印キー） ６５５３６行目を指す。 ここから以下記録開始。 ＥＮＤキー 上矢印キー 挿入 行 をやればよい。 Selection.End(xlUp).Select Selection.EntireRow.Insert これをＳＥＬＥＣＴの重複を省いて合体させれば、＃１のご回答のようになる。

takuya_9769
質問者

お礼

解説ありがとうございます。なるほどです。理解できました。他にもマクロを記録しているのですが、SELECTの重複を省いてみます。どうもありがとうございました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセル excel 複数範囲選択マクロ

    a列2行目からa列の値がある最下行 と c列2行目からc列の値がある最下行 という範囲を同時に選択するマクロの構文を教えてください。

  • エクセル：マクロの起動条件

    お世話になります。 以下の条件でのマクロを起動する方法、及びそのマクロを教えてください。 《条件》 ブックを開いた時、あるシートのＣ列でデータが入っている最下行の行番号とＡ列のデータが入って最下行の行番号の差が１００以下だった場合、マクロを実行する。 （なおＣ列の行番号の方が必ず大きいです） ちなみに実行したいマクロは１～６の手順です。 １．ブックを開いたとき ２．「入力用」という名前のシートのＣ列でデータが入っている最下行の行番号とＡ列のデータが入っている最下行の行番号の差が１００以下だった場合 ３．「入力用」というシートにかかっているシートの保護をはずし ４．データが入っているＣ列の最下行のＡ～Ｚ列を選択して、５０行分　下にコピーする。 　（例えば、Ｃ列の最下行が３５０行の場合、Ａ３５０～Ｚ３５０まで　を選択したあと４００行まで下にコピーする。） ５．再度シートの保護をかけ ６．Ａ列でデータが入っている最下行の１つ下のセルを選択する ちなみに、２の条件に当てはまらないときはマクロを実行しません。 またＣ列の最下行よりＡ列の最下行が大きい数字になることはないはずですが、もし同じかＡ列の方が大きい場合、「エラー：Ｃ列よりＡ列が大きくなっています」と画面に表示させたい。 なお、行番号の差：１００、選択するＡ～Ｚ行、５０行分下にコピー　は変わる可能性があるので、修正する場合どの部分を修正すればよいかも教えてください。 よろしくお願いします。

  • エクセルマクロ　オートSUM（合計）式の挿入

    データの最下行の下にエクセルのマクロで列の合計（オートSUM）を挿入したいです。 毎作業ごとに最下行が異なるので、「マクロの記録」では上手くいきません。 （毎回式の選択範囲を変えなければならなくなるため） ご教授頂きたく、よろしくお願いします。

  • 複数行の最下行の範囲選択

    こんにちは、マクロ初心者です。 　　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　Ｆ　　Ｇ　　Ｈ　　Ｉ １　　あ　　あ　　あ　　　　　　　　あ　　あ　　　　　あ ２　　あ　　あ　　あ　　　　　　　　あ　　あ　　　　　あ ３　　あ　　　　　あ　　　　　　　　　　　　　　　　　あ ４　　　　　　　　あ　　　　　　　　　　　　　　　　　あ ５　　　　　　　　あ　　　　　　　　　　　　　　　　　あ ６　　　　　　　　あ　　　　　　　　　　　　　　　　　あ ７　　　　　　　　あ　　　　　　　　　　　　　　　　　あ ８　　　　　　　　あ　　　　　　　　　　　　　　　　　あ ９　　　　　　　　あ 10 上記のような表があるとき セル"A"列から"I"列までの最下行にあたる行を検索し、 更に最下行までの範囲をコピーして、別シートにコピーさせたいのです。 （上記の例だと、セル"A1"～"I9"の範囲をコピーする） Range("A1", Range("I1").End(xlDown)).Select Selection.Offset(0, 0).Select 上記のコードでできると思ったのですが、なぜか不必要な範囲まで選択されてしまいます。 （下方向に数行余計に選択されてしまう） これではダメなのでしょうか？ ちなみに、数式などは入っておらず、入力されていないセルは全て空白です。 A列だけの最下行を選択するというのは簡単に出来たのですが、このように複数の範囲を 選択する場合は、どのようにコードを書くべきでしょうか。 マクロのスキルが無い為困っています。 アドバイスをよろしくお願いいたします。

  • ”アクティブセル行」の一行下を選択”するマクロ

    ■　”アクティブセルの、１個下の行を選択し、新しい空白行を一行挿入” ■次にその”アクティブセルのA列とB列の値を、 　新しく作った空白行に、コピー 　・・・といったマクロを組もうとしております。 たとえば 12行目を選択するプログラム（コマンド？マクロ？）は、 　Rows(12:12) となっていたので、それにならって Rows(activecell:B) などとやってみたのですが、うまくいきませんでした。 このような場合、どうしたらよいのかアドバイスをいただけると助かります。 どうぞ、よろしくお願いいたします。 　

  • エクセルマクロ　教えてください

    エクセルで、二行おきに行を一行挿入するマクロを組みたいのですがどうしたらよいでしょうか

  • Excelで一行おきに2行の空白行を挿入したい

    ４００行ほどデータの入ったエクセルシートがあります。 行番号　A列 　1　　山田 　2　　鈴木 　：　 　： 　400　田中 このシートで、一行おきに２行の空白行を追加したいのですが、 　１　　山田 　２ 　３ 　４　　鈴木 　５　　 　６ 　：　　： マウスで２行選択して右クリックメニューで挿入..を400行分やるのが大変なので 一気にやる方法を教えてください。

  • エクセルのマクロで教えてください

    excelのマクロで２つお伺いします １．右のセルの内容を下に移す Ａ　１　２　３　４ Ｂ　３　４　６ を Ａ　１ Ａ　２ Ａ　３ Ａ　４ Ｂ　３ Ｂ　４ Ｂ　６ メニューから下に何行か行を挿入して おいて特殊ペーストで行列を いれかえるとすればできたのですが 何通りもある場合マクロを使って できないでしょうか ２．リレーショナルへの対応 Ａ　１　２ Ｂ　２　３　４ １　あ　う ２　い ３　お ４　か　き 左側１列目は右に続く（個数不定）記号を もっているとして１番目（Ａ、、） ２番目（１、、）、３番目（あ、、）を 結び付けたいのです 上の例ですと Ａ　あ　う　い Ｂ　い　お　か　き をマクロで出力できますでしょうか ご存知の方いらっしゃいましたら 教えてください。よろしくお願いします。

  • エクセル　一行ずつセルを追加挿入する方法

    エクセルの表で、一行ずつセルを追加挿入しようと考え Ｃｔｒｌ　押しながら行番号を選びクリック、挿入ボタンを押したのですが 行全体または列全体とほかのセルを含む選択範囲に対してそのコマンドは使用できません。 行全体列全体または一つのセル範囲を選択し再度実行してください。 というメッセージが出て挿入することができませんでした。 うまくいくこともあるのですが、たびたび上記のメッセージがでてうまくいきません。 適切なやり方をご存じの方いらしたら教えていただけないでしょうか。 併せて、なぜ上記のエラーメッセージが表記されるかについてもご教示いただけたら幸いです。

  • エクセル　マクロでの行挿入は・・・・

    マクロを勉強中です。 特定の列の値（下の表では5列の『サブコード』です）が、 4～6 の時に、1行挿入し上の行のコピーを貼りつけ、 7～9 の時は、2行挿入して上の行をコピー貼りつけ・・・ という作業が、マクロでできますでしょうか？ ご回答を、お待ちしております。 どうか、よろしくお願い致します （u＿u)

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する