シートをコピーし名前をつける : Excel(エクセル)

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

Excel Tipsメニューに戻る

スポンサードリンク



Excelシートコード

コマンドボタンクリックイベント
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

スポンサードリンク



Excel実行前

実行前

Excel実行結果

シートが追加されシート名が付けられている

スポンサードリンク





Excel Tipsメニューに戻る

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


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved