エクセルの行追加

質問

エクセル２０００を使っています。
１０００行くらい連続した行の偶数行にそれぞれ行を追加したいのですが、１つずつ行を挿入していかないといけないんでしょうか？
もし簡単に１行飛びずつに行を挿入する方法があれば教えてください。

回答No.4

comv · ベストアンサー

こんばんは

データのある列の隣の空き列（仮に列挿入でも可）の

・１行目に適当なタイトル（何でも可）
・２行目に　-　（適当な記号）
・３行目に　*　（上記と違う適当な記号）
・２行目と３行目を選択して　選択範囲の右下済み
　（フィルポイント）上でダブルクリック
（　- と　*　が交互にデータ末まで連続複写されるはずです）
・１行目を選択して　データ　オートフィルタ
・１つ目の記号をドロップダウンより選択　-▼
・２行目全体を選択（行番号をクリック）
・[Ctrl]+[↓]　データ範囲まで選択
・[Alt]+[;]　　可視セルのみ選択
・メニューの　挿入　行
・２つ目の記号をドロップダウン選択　*▼
同じ操作

書くと長いけど意外と簡単です
よかったら試してみて下さい

回答No.5

imogasi

列数が少ないときに使え方法。
Sheet1のＡ列とＢ列に
大阪 a
奈良 b
伊賀上野 c
亀山 d
四日市 e
桑名 f
名古屋 g
豊橋 h
と入っているとします。
Sheet2(Sheet1の空き列でも可）のＡ１セルに
=IF(ISODD(ROW(A1)),OFFSET(Sheet1!$A$1,ROW()/2,0),"")
と入れて下へ複写します。
大阪

奈良

伊賀上野

亀山

四日市

桑名

名古屋

豊橋
となります。
Ｓｈｅｅｔ１のＢ列をＳｈｅｅｔ２へ持ってくるのは
Ｓｈｅｅｔ２のＢ列に
=IF(ISODD(ROW(B1)),OFFSET(Sheet1!$A$1,ROW()/2,1),"")といれ複写します。
３列目があれば
=IF(ISODD(ROW(B1)),OFFSET(Sheet1!$A$1,ROW()/2,2),"")です。
最後に、Ｓｈｅｅｔ２は自身のセルへ値の複写をして、式を消しておきましょう。

回答No.3

sadanao

少し面倒ですが以下の方法で可能です。

新しい列を追加してそこのセルに奇数番号を入れます。
セルに「１」次セルに「３」と入れ２セルを選択して、カーソルを右下に持って行くと「＋」に変わりますから、最終セルまでドラッグすると「１」「３」「５」「７」と奇数番号が入ります。

今度は最終セルから「２」「４」と入れ上記と同じ様にセルに偶数番号を入れます。

後は入力されたセルを選択して、並び変え「Ａ」→「Ｚ」をすれば一気に行が追加されます。

回答No.2

gramin

まず、作業用にひとつ列を作って、
つぎに既存の約1000行のその列に奇数の連番をふって、
つぎに空白行には偶数の連番をふって、
作業用の列をキーにしてソートしてはいかがでしょう。

回答No.1

maruru01

こんにちは。maruru01です。

作業列を使用します。
仮に、データがA列（1～1000行）にあるとして、作業列をB列とすると、以下のような手順で行います。

・B1に「1」、B2に「3」と入力する
・B1とB2を選択して、1000行目（データの最下行）までオートフィルコピーをする
（1、3、5・・・と奇数の連番を作成する）
・B1001（データの最下行のすぐ下の行）に「2」、B1002に「4」と入力する
・B1001とB1002を選択して、2000行目（データ数分）までオートフィルコピーをする
（データの最下行のすぐ下から、2、4、6・・・と偶数の連番を作成する）
・AB列を選択して、メニューの[データ]→[並べ替え]で、B列の昇順に並べ替える
・並べ替えが終わったら、B列は削除する

なお、A列の1001～2000行が空白であるのが前提です。