VBAでシートをコピーする－Worksheet.Copy

対象：Excel2003, Excel2007, Excel2010, Excel2013

「エクセル2010 vba シートコピー」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

ExcelでシートをコピーするVBA（Visual Basic for Applications）のコードを探している方による検索です。

上記の検索だけでは詳細がわかりませんので、簡単なサンプルマクロをご紹介します。

［スポンサードリンク］

アクティブシートを最後尾に複製するサンプルマクロ

アクティブなシートを最後尾に複製（コピー）するなら以下のようなマクロです。

Sub アクティブシートを最後尾にコピーする()
　ActiveSheet.Copy After:=Sheets(Sheets.Count)
End Sub

WorksheetオブジェクトやChartオブジェクトのCopyメソッドで、ワークシートやグラフシートのコピーができます。

アクティブなシートを先頭・一番左にコピーするのなら

ActiveSheet.Copy Before:=Sheets(1)

です。

WorksheetオブジェクトやChartオブジェクトのCopyメソッドの引数は、指定されたシートの前にコピーするBeforeか、指定されたシートの後ろにコピーするAfterのいずれかが指定できます。

Beforeが第1引数ですから、

ActiveSheet.Copy Sheets(1)

というコードでも一番左にコピーができ、
Afterが第2引数ですから、

ActiveSheet.Copy , Sheets(Sheets.Count)

というコードでも一番右にコピーができます。

しかし、こういうわかりづらい引数は、名前付き引数を使って書いておくべきです。

特に、

ActiveSheet.Copy , Sheets(Sheets.Count)

は「Copy」の後ろにある第1引数と第2引数の区切りの「,」（カンマ）を、うっかり見落としてしまえば、一番右のシートの（後ろ・右側ではなく）前・左側にコピーする、という意味に読めてしまいます。

名前付き引数を使って

ActiveSheet.Copy After:=Sheets(Sheets.Count)

と書いておけば、そんな誤読の可能性を減らせます。

最終更新日時：2023-06-19 17:38

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「Sheets・Worksheet」の記事一覧