エクセルの行挿入で複数行に複数行を挿入したい



 ◇-?エクセルの行挿入で複数行に複数行を挿入したい-will-10/06-09:53(109)-No.375297
   ┣?!Re:エクセルの行挿入で複数行に...-汚やぢ-10/06-11:30(107)-No.375309
   ┃ ┗?!【解決】Re:エクセルの行挿入で...-will-10/06-12:18(106)-No.375315
   ┗?!Re:エクセルの行挿入で複数行に...-白茶-10/06-11:49(107)-No.375313
     ┗?!【ありがとう】Re:エクセルの行...-will-10/06-12:23(106)-No.375317

▲このページのトップに戻る
375297エクセルの行挿入で複数行に複数行を挿入したいwill 2006/10/06-09:53

メーカー名:NEC 日本電気
OS名:WindowsXp
パソコン名:VY22X/RX-L
ソフト関連:表計算Excel
使用回線:ISDN
--
エクセルを使用しています。
頂いたワークシートで7000行くらいのデータがあります。
全てのデータに3行ずつ挿入したいのですが、一括で行う方法は無いでしょうか?
1つの行に対して3行づつの挿入を行っていますが、時間が掛かるため、良い方法があれば教えてください。

▲このページのトップに戻る
375309Re:エクセルの行挿入で複数行に複数行を挿入したい汚やぢ 2006/10/06-11:30

記事番号375297へのコメント
マクロの一例
http://pc.nikkeibp.co.jp/npc/download/morimoto_mm.html
ただし、7000行に対してこのマクロを使うと気が遠くなるほど時間がかかります。


マクロを使わない別法。
データが入っている行を7000行として・・・
仮に先頭に列を挿入します。
データが入っている7000行に対し、「1,5,9・・・・」という連番を最終行までオートフィル機能を使ってつけます。
7001行目には「=A1+1」という式を入れます。
3行ずつ挿入するので上記の式を28000行め(7000の3倍の21000を加えたもの)までオートフィルでコピーします。
そのままの状態(7001行めから28000行目までが選択されている状態)のA1列をコピーし、同じ場所に形式を選択で「値のみ」を貼り付けます。
A列を基準に昇順で並べ替えます。
A列を削除します。

▲このページのトップに戻る
375315Re:エクセルの行挿入で複数行に複数行を挿入したいwill 2006/10/06-12:18

記事番号375309へのコメント
汚やぢさんは No.375309「Re:エクセルの行挿入で複数行に複数行を挿入したい」で書きました。

ありがとうございます。

目からウロコが落ちました。

こんな方法考え付かず、諦めて手作業で行うところでした。

本当にありがとうございます。

おかげで、土日月の3連休を無事に迎えられます。

▲このページのトップに戻る
375313Re:エクセルの行挿入で複数行に複数行を挿入したい白茶 2006/10/06-11:49

記事番号375297へのコメント
willさんは No.375297「エクセルの行挿入で複数行に複数行を挿入したい」で書きました。

こんにちは。

A列のデータをB列に3行飛ばしてあらわす関数の例として。

B1=IF(MOD(ROW(),4)=1,INDEX(A:A,INT(ROW()/4)+1),"")
でA列のデータ数×4行目までフィルダウン。

とか・・・。

INDEX関数は"参照返し"関数なので、
計算速度も割と速いですよ。

▲このページのトップに戻る
375317Re:エクセルの行挿入で複数行に複数行を挿入したいwill 2006/10/06-12:23

記事番号375313へのコメント
白茶さんは No.375313「Re:エクセルの行挿入で複数行に複数行を挿入したい」で書きました。
早速のお返事ありがとうございました。

関数を使う方法も参考になりました。

膨大なデータを最近よく扱うので、今後も参考にさせていただきます。

A1.本ページは参考になりましたか? 又はアドバイスがありますか?
解決 参考になった 参考にならなかった アドバイスする

A2.何度目の訪問ですか?
初めて来た   数度目(2〜4) 5回以上来ている   管理人:

A3.何か一言どうぞ(アドレスは書くことができません)

A4.アドレスがあればどうぞ(1つまで)


↑↑↑↑よろしければ押してください↑↑↑↑

何か一言(本ページで参考になったならないを含めて残してあります)
◎:解決 ○:参考になった ×:参考にならなかった !:アドバイスあり

参考回数投稿日時何か一言
検索投稿あり2007/09/18-07:45左記[投稿あり]クリックにて検索(逆リンク調査)します同様の質問へのリンクとなっています
初めて2011/12/02/(金) 19:04:32 MSIE7/WinXP