• ベストアンサー

複数行に空白行を一括で挿入したいのですが

mar00の回答

  • mar00
  • ベストアンサー率36% (158/430)
回答No.2

Sub Macro1() For i = Cells(Rows.Count, 1).End(xlUp).Row To 15 Step -1 Range("A" & i).EntireRow.Insert Next i End Sub という感じでどうでしょうか>

fansasad
質問者

お礼

いろいろやり方があるのですね 教えていただいたやり方も一度ためしてみます。 ありがとうございました。

関連するQ&A

  • エクセルで1行ごとに空白行を挿入し、挿入した空白行に色をつけたいです

    タイトルの通りです。 エクセル(2000)で、データはシート毎に件数が違います。 各シート毎にそれぞれ1行毎、空白行を挿入し、挿入した空白行のA列~G列までに薄いグレーの色をつけるマクロを入れたいのですが、うまくいきません。 詳しい方、教えて下さい。

  • エクセルで空白行を挿入するには

    一つの列に200ほどデータがあるとします。 そこで1行おきに空白行を挿入していきたいのですが手でいちいち空白行を挿入していてはらちがあきません。 関数等も含めて、なにか良い方法はないでしょうか。 例 セルA1   セルA2   セルA3 以下続く    ↓   セルA1   空白行(セル)   セルA2   空白行(セル)   セルA3   空白行(セル) 以下続く   といった具合です。

  • エクセルマクロ、空白行(セル)の挿入

    データがA、B、C、D、E列100行まであります。 このうちD、E列を除き、エクセルのマクロで1行ごとに空白で10行挿入したいです。 (A、B、C、D列のデータに空白セルを10行分挿入し、下にシフトするイメージ。D、E列はそのまま。) ご教授頂きたく、お願いします。

  • 特定文字のある行の前に空白行を挿入したい

    5000行ほどあるエクセルファイルで、 「■」の文字がある行の直前に空白行を挿入したいと思っています。 「■」のある行が1500行ほどあるので、 手作業は大変かと思い、マクロでやるのはどうかな?と おもったのですが、既存のマクロを少し修正することはあっても 初めからマクロを組んだことがないので、 どう書けばよいかわかりません。 データはA列にしか無い状態で、 「■」がある行の直前に空白行を挿入するマクロは どのように書けばよいのでしょうか? ご教授のほどお願いします。

  • 特定の条件の時に行を挿入したい

    EXCEL2000使っています。A列データがあるとして、A3セルに特定の数字(例えば1)があるときは、その上の行、このときは 2行に1行挿入したいのですが、各行ごとに挿入するのは大変なので、簡単に、できるだけ一度に挿入する方法はないですか?

  • エクセルの空白を求めたいのですが。

    エクセルの空白を求めたいのですが。 例えば、 ・・A B C D E 1 4 2 3 8 4 5 6 4 7 8 9 2 10 A列の数字入力があるセルから、次のセルの入力値まで の空白の個数を関数で出来ますでしょうか? A9~A6 は空白が2個となります。 A6~A3 は空白が3個となります。 A列の 各行 には他のセルで計算された値を出しているので、 各行に現れる数値は、その時によって違います。(現れる数値は整数です) わかる方いましたら、宜しくお願いします。

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

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

  • マクロにて空白のセルを一括して消去でなく削除したい

    空白のセルを一括して、空白セルについた色も含めてマクロで全て削除したい。 現在のデータ(仕様)について 1.Sheet2に列ごとにセルに色をつけ、データもあるとします。 2.A列10行・B列6行・C;列18行というように、列によってデータの入った範囲が違います。 3.どの行も途中に空白セルはなく、詰めたデータです。 以上です マクロで一括処理したいと思いますが、このようなことができるコードを教えて頂けませんか。よろしくお願いします。

  • EXCEL2007 複数セルに一括文字挿入

    こんにちわ EXCEL2007で質問ですが、 複数の空白ではないセルを選択して、一括で文字を挿入する方法を教えてください。 たとえば、、、セルA1に「あ」 セルA2に「い」 とあり、その頭にAと挿入したいのですが・・・・結果セルA1「Aあ」セルA2「Aい」となるように一括で処理できる方法があれば教えてください。

  • EXCELで指定範囲に一括して行を挿入

    EXCELで指定範囲のセルに、一括して一行置きに行を挿入出来る関数があれば教えてください。