• 虹色ミツバチ
  • freoカスタマイズメモ、テンプレート・プラグイン配布/officeTIPS
検索プラグイン
虹色ミツバチ

> Entry >MOS>Microsoft Office Excel>マクロ/VBA> ワークシートをコピーして名前を変更するマクロ

【MOS】【Microsoft Office Excel】【マクロ/VBA】ワークシートをコピーして名前を変更するマクロ

ワークシートをコピーするには、Copyメソッドを使用します。
Copyメソッドには、BeforeとAfterの2種類の引数があります。

たとえば、「Sheet1」というシートをコピーする場合は下記のようになります。

新規ワークブックにコピーしたシートを挿入する場合
Worksheets("Sheet1").Copy
2番目のシートの前(左)にコピーしたシートを挿入する場合
Worksheets("Sheet1").Copy Before:=Worksheets(2)
1番目のシートの後(右)にコピーしたシートを挿入する場合
Worksheets("Sheet1").Copy After:=Worksheets(1)

ワークシートをコピーして名前を変更するマクロ

Copyメソッドを利用すると、コピーしたシートはActiveSheetに格納されます。
下記のようにすると、コピーしたシートの名前を変更することができます。

Sub Sample()
    Dim wsName As String
    wsName = 'test'

    Worksheets("Sheet1").Copy
    ActiveSheet.Name = wsName
End Sub

 

ページ移動

関連記事

ユーティリティ

Twitter

ページ上部へ