エクセルに変則的な行挿入をしたい

 ◇-?エクセルに変則的な行挿入をしたい-MP-07/07-16:26(259)-No.454659
 　 ┗?~補足...-MP-07/07-18:24(257)-No.454666
 　 　 ┗?~!Re:補足...-L-07/07-22:00(253)-No.454682
 　 　 　 ┗?~!!Re:追加...-L-07/07-22:42(252)-No.454691
 　 　 　 　 ┗?~!!-Re:追加...-MP-07/08-08:12(243)-No.454714

「何か一言」を書く Facebookコメントができます

▲このページのトップに戻る

454659	エクセルに変則的な行挿入をしたい	MP URL	2008/07/07-16:26
メーカー名：NEC 日本電気 OS名：WindowsXp Professional パソコン名：MY26X/R-J ソフト関連：表計算Excel -- 現在エクセルで表計算を使用しているのですが、補足事項が出来て行の挿入を行うことになりました。現在3行ごとに1アイテムを管理していて、それを今後5行に変えなければなりません。現在の1行目、2行目にそれぞれ1行挿入して、全5行にしたいのですが、アイテム数が数百個ある為、なんとか簡素化できないでしょうか？例) 　1行目　2行目　3行目　↓ 　1行目　2行目(新規挿入) 　3行目(元の2行目) 　4行目(新規挿入) 　5行目(元の3行目)　　上の繰り返しで挿入作業をしたいのですが・・。

▲このページのトップに戻る

454666	補足	MP	2008/07/07-18:24
記事番号454659へのコメント >現在3行ごとに1アイテムを管理していて、それを今後5行に変えなければなりません。 ↑ 説明がわかりにくくスミマセン。「3行を使って1アイテム管理」という事です。つまりこうなります。 ↓ 　1行目　2行目　…1～3行目でアイテムA 　3行目　4行目　5行目　…4～6行目でアイテムB 　6行目　↓ 　1行目　2行目(新規挿入) 　3行目(元の2行目)　…1～5行目でアイテムA 　4行目(新規挿入) 　5行目(元の3行目)　　6行目(元の4行目) 　7行目(新規挿入) 　8行目(元の5行目)　…6～10行目でアイテムB 　9行目(新規挿入) 10行目(元の6行目)

▲このページのトップに戻る

454682	Re:補足	L	2008/07/07-22:00
記事番号454666へのコメント MPさんは No.454666「補足」で書きました。完全な規則性があるならマクロを組めばいい。 ※１行目から始める。・１行下に下がる。・行を挿入する。・２行下に下がる。・行を挿入する。・２行下に下がる。以下繰り返し。こういうこったしょ？

▲このページのトップに戻る

454691	Re:追加	L	2008/07/07-22:42
記事番号454682へのコメント Lさんは No.454682「Re:補足」で書きました。 VBAも簡単にだが書いた。 Sub Sonyu() Dim block As Integer block = 50 Dim gyo As Integer gyo = -1 For i = 1 To block gyo = gyo + 3 Rows(gyo).Insert gyo = gyo + 2 Rows(gyo).Insert Next End Sub 「block = 50」の数字のところで、繰り返しの回数を調節する。元のアイテム数をいれれ。最後のアイテム以下空白なら適当に1000とかでもいい。マクロを使うときは、元データのバックアップは取っておくこと。マクロで処理した場合、取り消しはできない。破棄してやり直しになる。適当に書いただけあって使い捨てなので、 2回重ねて使ったりはしないこと。激しく後悔する。一応手元では試してみたが、使うなら慎重に。

▲このページのトップに戻る

454714	Re:追加	MP	2008/07/08-08:12
記事番号454691へのコメントマクロを使った事がないのでわからないけど、わかりそうな人にも相談しながらやってみます。ありがとう。

パソコントラブル解決・過去ログTOP > ログTOP > エクセルに変則的な行挿入をしたい

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

参考	回数	投稿日時	何か一言