• ベストアンサー

エクセルで一行おきに空白行を挿入したい

エクセル97を使って、あるリストを作っています。 すでに元となるデータがあるのですが、 それをリスト上に一行置きに挿入する方法が見つかりません。 例えば、 Sheet1 の A1 を Sheet2 の A1 に入れ、 Sheet1 の A2 を Sheet2 の A3 に入れ、 Sheet1 の A3 を Sheet2 の A5 に入れ・・・、 という具合に使いたいのですが、効率良く出来る方法はないでしょうか? Sheet1 に空白行を一発で全て入れてしまう方法でも構いません、 ご存知の方、アドバイスお願いします。

  • Kaboo
  • お礼率31% (19/61)

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

  • ベストアンサー
  • nishi6
  • ベストアンサー率67% (869/1280)
回答No.1

Sheet1のセルA1から下方向にデータが連続的に入っている場合に、下記マクロで行を挿入します。A1でなければ3行目を適当な1行目のセル番号に修正してください。("A1"を"B1"とかに) ツール→マクロ→VisualBasic EditorでVBE画面に移り、Sheet1のコードウインドウに貼り付けます。 シートに戻り、ツール→マクロ→マクロでinsKuuhakuGyoを実行します。 Sub insKuuhakuGyo()   Dim rw As Long 'セル   For rw = Range("A1").End(xlDown).Row To 2 Step -1     Rows(rw).Insert   Next End Sub

Kaboo
質問者

お礼

早速のご回答、ありがとうございました。 色々な場面で使わせていただきたいと思います。

その他の回答 (3)

  • himehime
  • ベストアンサー率37% (133/354)
回答No.4

マクロはあまり詳しくないんですが・・・。 どっかのホームページで見た記憶があって、 探したら、こんなページが出てきたんですけど、 これって、ご参考になるんでしょうか?

参考URL:
http://pcgaz.nikkeibp.co.jp/pg/pcgaz/vba/vba_2_09.shtml
Kaboo
質問者

お礼

マクロの勉強になりそうなページをご紹介いただき、 ありがとうございました。役に立ちました。

noname#6451
noname#6451
回答No.3

A1からA10までデータがあるとしたら B1に 1 B2に 3 を入力して、B1とB2をマウスで反転させて、 右下の小さい四角を下に引っ張って、 B1からB10に、1、3、5・・・と奇数を入れて B11に 2 B12に 4 を入力して、 B11からB20に、2、4、6・・・と偶数を入れます B1にポイントを置いて、昇順で並び替えをクリックすると空白行を一発で 入れる事が出来ます。あとはコピーすれば何とかなるんじゃないでしょうか。

Kaboo
質問者

お礼

ありがとうございました。 こんなやり方があったんですね・・・。 勉強になりました。

  • kbonb
  • ベストアンサー率51% (254/492)
回答No.2

こんにちは  以下のページがご参考になるのでは? 【エクセル技道場】-編集 -他のシートのセルを一行おきに参照 http://www2.odn.ne.jp/excel/waza/edit.html#SEC35 -複数行の行挿入 http://www2.odn.ne.jp/excel/waza/edit.html#SEC31

参考URL:
http://www2.odn.ne.jp/excel/waza/edit.html#SEC35,http://www2.odn.ne.jp/excel/waza/edit.html#SEC31
Kaboo
質問者

お礼

ありがとうございました。 他にも役に立ちそうなことが沢山載ってて、 とても勉強になりました。

関連するQ&A

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

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

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

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

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

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

  • excel「行の挿入」するとなぜか最終行に挿入されてしまう

    昨日、 ”excel2000の表で、ふつうにただ1行挿入したいだけなのですが、「行の挿入」を選ぶと 「データの消失を防ぐ為、空白でないセルをワークシートの外にシフトすることは出来ません」 とポップアップが出て、操作できません。” という質問をし、 ”全ての行を使い切ってしまっている、あるいは最終行(65536行目)のどこかのセルにデータが入っている。そのデータを消せばよい。” と教えて頂き、確認したところ最終行まで罫線がびっしり引かれていることに気付き、そんなにいらないので400行目以降の罫線はすべてクリアーで消去しました。 それで一件落着と思ったのですが、その後1行 行(罫線)を挿入すると、なぜか途中を通り越して最終行に罫線がはみ出てしまい、しばらくしてもう一行挿入しようとするとまた 「データの消失を防ぐ為、空白でないセルをワークシートの外にシフトすることは出来ません」 となってしまいます。私は400行目以内ですべて作業を完結させたいのに・・・。 どうすればよろしいでしょうか。

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

    エクセルに関する質問です。 セルA列の14行目から30000行まである数字が入力されています。 各行間に一行ずつ空白行を挿入したのですが マクロを使ったやりかたでもかまいませんので 一括でする方法があれば教えていただけないでしょう?

  • エクセルの行挿入について

    こんにちわ。お世話になります。 エクセルでシート1に1,000行、シート2に1,000行のデータを作成し、シート1のデータの上にシート2のデータを貼り付けて連続したデータを作っているのですが、データを貼り付けるたびに1,000行の行挿入をしてからデータを貼り付けています。いちいち行挿入をせずにもっと簡単にできる方法があれば教えていただけませんか。お願いします。

  • エクセルの行挿入について

    エクセルで、すでに300行ほどのデータが入っていますが、その1行1行にもう一行挿入しなければならないのです。F4キーを使ってする方法以外、一発で、挿入できる方法を教えてください。宜しくお願いします。

  • Excelで1行置きに空白行を挿入するには

    Excel2003を使用。 Excelで1行置きに空白行を挿入するには、[Ctrl]を押しながら行を1行ずつ選択し、 選択した任意の行で[右クリック]-[挿入]で行っています。 1行置きに空白行を入れたい行がたくさんあると、これではすごく大変です。 何か別な方法はあるのでしょうか? ちなみに、行を[ドラッグ]で連続して選択したり、[Shift]を押しながら開始行、 終了行を押して選択して[右クリック]-[挿入]をすると、開始行の前に空白 行がまとめて挿入されますので、これではいけません。 Excelにお詳しい方、どうかよろしくお願いします。

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

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

  • Excelで空白行を削除したい

    他の書類からExcelにコピペしたんですが、もとの書類の書式のせいか偶数行が全て空白行になっています。 実際に必要なデータは奇数行の各列に並んでいます。 見づらいので空白行(または偶数行でも同じ)を削除したいんです。 行数が500を超えるので、一行づつ行の削除をやっていると大変な手間です。 一発でやる方法はないでしょうか?

専門家に質問してみよう