![[あすかぜ・ねっと]](/image/asukaze.png "あすかぜ・ねっと"){kind=small}
あすかぜ・ねっと[260] 複数行を一挙に100回コピー
kotobukiko [2012/12/31 18:54:08]
Cassavaはよく使わせて頂いています。感謝。
質問ですが、たとえば8行をまとめて下に100回くらいコピーできませんか？
手作業で100回「貼り付け」をすれば良いのでしょうが、マクロで一挙に出来ればうれしいのですが...
Re: [260] 複数行を一挙に100回コピー
あすかぜ [2013/01/02 00:08:53]
あけましておめでとうございます。
マクロでの行のコピーは、for ループを回してセルごとに値をコピーするのが一番簡単かもしれません。
次のようなマクロでどうでしょうか。
y = 9;
for (i = 1; i <= 100; i++) {
for (j = 1; j <= 8; j++) {
InsertRow(y);
for (x = 1; x <= Right; x++) {
[x, y] = [x, j];
}
y++;
}
}
このマクロでは 1 行目から 8 行目までを 100 回、9 行目から 808 行目までにコピーします。
コピー先の行番号を変える場合は「y = 9」を、コピー元の行番号を変える場合は j のループ範囲を変更してください。
マクロ実行前の 9 行目以降のデータを保存する必要がなければ、「InsertRow(y);」を削除すれば高速化できます。
よろしくお願いします。
Re: [260] 複数行を一挙に100回コピー
kotobukiko [2013/01/06 21:23:35]
あすかぜ様
ご回答ありがとうございます。
これから試してみます。
今年もよろしくお願いします。
Re: [260] 複数行を一挙に100回コピー
kotobukiko [2013/01/06 23:05:47]
あすかぜ様
希望通りの処理が出来ました。
いつもありがとうございます。