• ベストアンサー

エクセルの行追加

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

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

  • ベストアンサー
  • comv
  • ベストアンサー率52% (322/612)
回答No.4

こんばんは データのある列の隣の空き列(仮に列挿入でも可)の ・1行目に適当なタイトル(何でも可) ・2行目に - (適当な記号) ・3行目に * (上記と違う適当な記号) ・2行目と3行目を選択して 選択範囲の右下済み  (フィルポイント)上でダブルクリック ( - と * が交互にデータ末まで連続複写されるはずです) ・1行目を選択して データ オートフィルタ ・1つ目の記号をドロップダウンより選択 -▼ ・2行目全体を選択(行番号をクリック) ・[Ctrl]+[↓] データ範囲まで選択 ・[Alt]+[;]  可視セルのみ選択 ・メニューの 挿入 行 ・2つ目の記号をドロップダウン選択 *▼ 同じ操作 書くと長いけど意外と簡単です よかったら試してみて下さい

その他の回答 (4)

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

列数が少ないときに使え方法。 Sheet1のA列とB列に 大阪 a 奈良 b 伊賀上野 c 亀山 d 四日市 e 桑名 f 名古屋 g 豊橋 h と入っているとします。 Sheet2(Sheet1の空き列でも可)のA1セルに =IF(ISODD(ROW(A1)),OFFSET(Sheet1!$A$1,ROW()/2,0),"") と入れて下へ複写します。 大阪 奈良 伊賀上野 亀山 四日市 桑名 名古屋 豊橋 となります。 Sheet1のB列をSheet2へ持ってくるのは Sheet2のB列に =IF(ISODD(ROW(B1)),OFFSET(Sheet1!$A$1,ROW()/2,1),"")といれ複写します。 3列目があれば =IF(ISODD(ROW(B1)),OFFSET(Sheet1!$A$1,ROW()/2,2),"")です。 最後に、Sheet2は自身のセルへ値の複写をして、式を消しておきましょう。

  • sadanao
  • ベストアンサー率42% (67/157)
回答No.3

少し面倒ですが以下の方法で可能です。 新しい列を追加してそこのセルに奇数番号を入れます。 セルに「1」次セルに「3」と入れ2セルを選択して、カーソルを右下に持って行くと「+」に変わりますから、最終セルまでドラッグすると「1」「3」「5」「7」と奇数番号が入ります。 今度は最終セルから「2」「4」と入れ上記と同じ様にセルに偶数番号を入れます。 後は入力されたセルを選択して、並び変え「A」→「Z」をすれば一気に行が追加されます。

  • gramin
  • ベストアンサー率36% (51/138)
回答No.2

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

  • maruru01
  • ベストアンサー率51% (1179/2272)
回答No.1

こんにちは。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行が空白であるのが前提です。

関連するQ&A

専門家に質問してみよう