Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26219 / 76732

←次へ　｜　前へ→


	【55845】特定の行を、任意の複数箇所に挿入・コピーする方法

taro - 08/5/21(水) 11:32 -


	引用なし

	パスワード

いきなりの具体例で恐縮です。例えば、以下のような表があるとします。　　A　　　　　　　B　　　C　　 1　表タイトル1 2　表タイトル2 3　整理番号　　　項目1　項目2　 4　21　　　　　　　--　　--　 5　21　　　　　　　--　　--　 6　22　　　　　　　--　　-- 7　22　　　　　　　--　　-- 8　23　　　　　　　--　　-- 9　23　　　　　　　--　　-- このとき、A列（整理番号）が変わる行を境に、1・2行目（表タイトル1・表タイトル2）を行ごと挿入コピーしたい場合、どのようにマクロを書けばいいでしょうか。上の例では、　*　5行目と6行目の間に、1・2行目を行の挿入・コピーをする　*　7行目と8行目の間に、1・2行目を行の挿入・コピーをするということになります。なお、他の前提条件は以下のとおりです。　*　21・22・23の整理番号は、この3つだけでなく約20種類あること　*　それぞれの整理番号の行数は、整理番号によって異なること　*　毎月1回の更新処理を想定していて、同じ整理番号でも月によって　　行数は変動すること丸投げのような質問で恐縮ですが、どなたかご教授いただければ幸いです。よろしくお願いいたします。