※ ChatGPTを利用し、要約された質問です(原文:EXCEL VBA で既定のシートを下に追加したい)
Excel VBAで既定のシートを下に追加する方法とは?
このQ&Aのポイント
Excel VBAで既定のシートを下に追加する方法を教えてください。現在、注文書シートを増やすごとに、その範囲を下にコピーしています。しかし、50件以上になると処理に時間がかかってしまいます。他の方法をご教示いただけないでしょうか。
Excel VBAを使用して、既定のシートの下に新しいシートを追加する方法についてお聞きしたいです。現在、注文書というシートがあり、それを増やすたびに同じ範囲を下にコピーしています。しかし、50件以上になると処理時間が長くなってしまいます。他の効率的な方法はありますか?
Excel VBAを使って、既定のシートの下に新しいシートを増やす方法を知りたいです。現在は注文書というシートを増やすたびに、同じ範囲を下にコピーしています。しかし、50件以上になると処理に時間がかかるようになりました。他の効果的な方法はありますか?
EXCEL VBA で既定のシートを下に追加したい
EXCEL VBAである既定の(例えば注文書シート)みたいなのがあったとして、これを注文書が増えるごとに下にその範囲のコピーを下に追加
してゆきたい。これは、書式がいろいろと決まっているのと、他の関数でその中に値を色々と埋めています。また、これと紐づくもので、注文書明細や、その他のシートがあるので、それらもそれぞれ下方向にコピーしています。
一つのシートのコピー例が、
Rows(intUpperLine & ":" & intLowerLine).Select
Selection.Copy
Rows((ir * (i + 1)) + 1).Select
Selection.Insert Shift:=xlDown
というような感じでループしている。
これらが10件くらいならば、ちょっと待つがなんとか
なるのですが、50件とかいくと30分以上かかります。
何か、知恵を賜りたいです。
よろしくお願いします。
尚、シートを横展開することも考えたのですが、これだと
限りなく横へスクロールするので、お客様からNGだされました。
よろしくお願いします。
お礼
詳しく、よくわかりました。 紹介された、URLを参照していくと、結局、数秒で終わるようになった。高速化恐ろしや。 大変、ありがとうございました。