PR

【VBA】シートを最後(末尾)にコピーする(Copy after)

【VBA】シートを最後(末尾)にコピーする(Copy after) VBA
この記事は約1分で読めます。
記事内に広告が含まれています。

Excel VBAでコピーしたシートをブックの最後に設定します。
これは日常的に使っている書き方ですので、参考にしてください。

Amazon

30日間無料登録できる「Amazonプライム会員」に登録すれば、翌日に購入した商品が届くお急ぎ便・お届け日時指定便の指定ができるので、荷物をなるべく早く受け取りたい人にオススメ!


無料体験期間中もAmazonプライムビデオや1億曲以上聞き放題のAmazon Musicなど、すべてのプライム会員特典がセットになっています!

 

 

うめ
うめ

30日間以内に解約すれば費用は発生しません!

Copy afterとWorksheets.Countの関係

Sheet1を末尾にコピーするにはWorksheets.Countを使いシートのインデックス番号を取得します。

Worksheets(“Sheet1”).Copy After := Worksheets(Worksheets.Count)

シートのインデックス番号

インデックス番号が1の場合はシートが一つしか存在していません。

Copy afterでインデックス番号1の後ろにシートを追加することで「最後にシートをコピーしている」ように見せています。

サンプルコード

サンプルコードで実行すると末尾にSheet1をコピーした「コピー」シートが作成されます。

末尾に「コピー」シート

この記事が気に入ったら
いいね ! しよう

Twitter で
この記事を書いた人

便利なガジェットレビューやPCのトラブル解消記事を書いています。
単調な繰り返し作業が苦手なので、作業効率化の仕組みを記事にしています。
月間9万PVを突破しました!
商品レビューのご依頼は「お仕事の依頼について」をご確認ください。

うめをフォローする
VBA
梅屋ラボ
タイトルとURLをコピーしました