エクセルTips シートをコピーし名前をつける

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

シートをコピーするには、Copyメソッドを使います。
引数に、Before で指定するとシートの前にコピーしたシートを挿入できます。
After で指定するとシートの後にコピーしたシートを挿入できます。
どちらも指定しないと、新規ブックのシートにコピーできます。
名前は、全シートを調べコピーした名前と同じならば、Nameプロパティで変更しています。

シートコード

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

    'シート2をシート3の後ろに追加
    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

実行前

実行結果

Topへ