Excel VBAでコピーしたシートをブックの最後に設定します。
これは日常的に使っている書き方ですので、参考にしてください。
30日間無料登録できる「Amazonプライム会員」に登録すれば、翌日に購入した商品が届くお急ぎ便・お届け日時指定便の指定ができるので、荷物をなるべく早く受け取りたい人にオススメ！
無料体験期間中もAmazonプライムビデオや1億曲以上聞き放題のAmazon Musicなど、すべてのプライム会員特典がセットになっています！
うめ
30日間以内に解約すれば費用は発生しません！
Copy afterとWorksheets.Countの関係
Sheet1を末尾にコピーするにはWorksheets.Countを使いシートのインデックス番号を取得します。
インデックス番号が1の場合はシートが一つしか存在していません。
Copy afterでインデックス番号1の後ろにシートを追加することで「最後にシートをコピーしている」ように見せています。
サンプルコード
サンプルコードで実行すると末尾にSheet1をコピーした「コピー」シートが作成されます。
|
1 2 3 4 5 6 7 |
Sub sample() '末尾に「コピー」シートを追加 Worksheets("Sheet1").Copy after:=Sheets(Worksheets.Count) ActiveSheet.Name = "コピー" End Sub |
