Excel VBAでシートをコピーし名前をつける方法：CopyとName使用

シートをコピーし名前をつけるには、Copy後Nameを実行します。

Homeに戻る > Excel シートのTipsへ

Excelシートをコピーするには、Copyメソッドを使います。

引数に、Before で指定するとシートの前にコピーしたシートを挿入できます。

After で指定するとシートの後にコピーしたシートを挿入できます。

どちらも指定しないと、新規ブックのシートにコピーできます。

名前は、全シートを調べコピーした名前と同じならば、Nameプロパティで変更しています。

関連するTipsの「ブック・シート・セルの名前 - 初心者向けexcelの使い方」も参照してください。

Excel VBAでシートをコピーし名前をつけるVBA

Excelシートコード

実行順の説明

Copy AfterでSheet2をSheet3の後ろに3枚コピーします。
シート枚数分、Forでループします。
既存の「Sheet2」でコピーすると、「Sheet2(2)」の名前になるので、ファイル名が6文字より長くシート名の先頭から6文字が「Sheet2」かどうか調べます。
その場合、Nameで名前を「シート1から3」に変更します。

コマンドボタンクリックイベント
Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim n As Integer

    'Sheet2をSheet3の後ろに追加
    For i = 1 To 3
        Worksheets("Sheet2").Copy After:=Worksheets("Sheet3")
    Next

    '追加し名前をつける
    n = 0
    For i = 1 To Sheets.Count
        If Len(Sheets(i).Name) > 6 And Left(Sheets(i).Name, 6) = "Sheet2" Then
            n = n + 1
            Sheets(i).Name = "シート" & n
        End If
    Next
End Sub

Excel実行前

現在のシートは「Sheet1～3」の3枚です。

Excel実行結果

「シート1～3」の3枚が追加できました。

Homeに戻る > Excel シートのTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します