[[20190313135248]]　『行を複数行へ複写挿入』（さなひ）　ページの最後に飛ぶ

『行を複数行へ複写挿入』（さなひ）

こんにちは。よろしくお願いします。

 マクロで6行目の内容を書式ごと
 他の複数の行に複写挿入したいのですが
 Rows(6).Copy Destination:=Range("10:10,14:14,18:18,22:22,26:26,30:30,34:34,38:38,42,42")
 みたいな感じでやってみたのですが
 うまくできません。
 1行ごとなら
 Rows(6).Copy Destination:=Rows(10)
 で可能で、これを何行も行えばできるのですが
 1回でできる方法はありますか？
 よろしくお願いいたします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

一行抜けていました。

 Rows(10).Insert
 Rows(6).Copy Destination:=Rows(10)
 でした。
（さなひ） 2019/03/13(水) 14:03

 コピーだけなら　最後のカンマを　コロンに変えればできますが Insertは無理だと思います。
（seiya） 2019/03/13(水) 14:11

 コピー・挿入を一行では無理ですが

  Range("10:10,14:14,18:18,22:22,26:26,30:30,34:34,38:38,42:42").Insert
  Rows(6).Copy Range("10:10,14:14,18:18,22:22,26:26,30:30,34:34,38:38,42:42")

 予め空行をInsetしておけばよいのでは？
（seiya） 2019/03/13(水) 14:23

seiyaさん、ありがとうございます。

 できました！
 まとめてInsert すればよかってんですね。
 ありがとうございました。
（さなひ） 2019/03/13(水) 15:09

こんにちは。

 ほんとですか？
　
 行挿入でずれる分を考慮しないといけないとおもうのですが

   Range("10:10,14:14,18:18,22:22,26:26,30:30,34:34,38:38,42:42").Insert
   Rows(6).Copy Range("10:10,15:15,20:20,25:25,30:30,35:35,40:40,45:45,50:50")

 ループした方が簡単なのでは。
（でれすけ） 2019/03/13(水) 15:10

コメント返信：

[ 一覧(最新更新順) ]

[[20190313135248]] 『行を複数行へ複写挿入』（さなひ） ページの最後に飛ぶ

[[20190313135248]]　『行を複数行へ複写挿入』（さなひ）　ページの最後に飛ぶ