【Excel VBA】シートをコピーする方法まとめ｜名前変更や注意点も解説

Public Sub CopySheet()

    ' ブックの末尾に Sheet1をコピー
    Worksheets("Sheet1").Copy After:=Worksheets(Worksheets.Count)
End Sub

Public Sub CopySheet()

    ' ブックの末尾に Sheet1をコピー
    Worksheets("Sheet1").Copy After:=Worksheets(1)
End Sub

Public Sub CopySheet()

    ' ブックの末尾に Sheet1をコピー
    Worksheets("Sheet1").Copy After:=Worksheets(Worksheets.Count)
End Sub

Public Function CopySheet() As Worksheet
    Dim wsObj As Worksheet

    ' ブックの末尾に Sheet1をコピー
    Worksheets("Sheet1").Copy After:=Worksheets(Worksheets.Count)

    ' コピーしたシートを変数に格納
    Set wsObj = ActiveSheet

    ' コピー先のシートを戻り値として返却
    Set CopySheet = wsObj
End Function

Public Sub CopySheet()
    Dim wsObj As Worksheet

    ' ブックの末尾に Sheet1をコピー
    Worksheets("Sheet1").Copy After:=Worksheets(Worksheets.Count)

    ' コピー先シートの名前を変更
    ActiveSheet.Name = "CopySheet"
End Function

Public Sub CopySheet()
    Dim baseName As String: baseName = "CopySheet"
    Dim newName As String: newName = baseName
    Dim i As Long: i = 1

    ' ブックの末尾に Sheet1をコピー
    Worksheets("Sheet1").Copy After:=Worksheets(Worksheets.Count)

    ' 重複するシートの存在チェック
    Do While SheetExists(newName)

        ' 存在しない名前の場合は、変数に値をセットしループ終了
        newName = baseName & "(" & i & ")"
        i = i + 1
    Loop

    ' シート名を変更する
    ActiveSheet.Name = newName
End Sub

Private Function SheetExists(nm As String) As Boolean
    On Error Resume Next

    ' シートの存在チェック
    SheetExists = Not Worksheets(nm) Is Nothing
    On Error GoTo 0
End Function

Public Sub CopySheet()
    Worksheets("Sheet1").Copy
End Function