指定したシート名をコピーするVBA

EXCELからシートをコピーすることが多いので、 効率的にやるため、VBAのコードを書いてみた

やること

• 指定した名前のシートをコピーする
• コピー元のシートの一つ右にコピーしたシートを作成する
• コピーしたシートの名前を変更する
• コピーしたシートのうち、不要なデータをクリアする
  • 下のサンプルコードだとA3からF33をクリア

Function sheetCopy()
        Worksheets("コピーするシートの名前").Copy After:=Worksheets("コピーするシートの名前")
        ActiveSheet.Name = "新しいシートの名前"
        ActiveSheet.Range("A3:F33").ClearContents
    End If
End Function

あんまり動作確認してませんが、これで動くはず。 少しだけの繰り返す作業の時間が短くなるといいな。