VBA学習ツール無料配布！#34 テーマ:vbaでシートコピーしよう！

Option Explicit

Sub correctAnswerExample()
    Dim ws As Worksheet
    Dim sheetExists As Boolean: sheetExists = False
    ' ワークブック内に「コピーシート」が存在するか確認
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = "コピーシート" Then
            sheetExists = True
            Exit For
        End If
    Next ws
    ' 「コピーシート」が存在しない場合
    If Not sheetExists Then
        ' 「読み込みシート」をコピー
        ThisWorkbook.Worksheets("読み込みシート").Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
        ' コピーしたシートの名前を「コピーシート」に設定
        ActiveSheet.Name = "コピーシート"
        ' メッセージを表示
        MsgBox "シートコピー完了！", vbInformation
    Else
        ' 「コピーシート」が既に存在する場合のメッセージを表示
        MsgBox "既に「コピーシート」があった為, シートコピーを行いませんでした。", vbInformation
    End If
End Sub