経緯
Excelで作業していると、既存のシートをコピーして再利用したい場面がよくあります。
これまではシートのタブを右クリックして「移動またはコピー」を選び、手動で複製していましたが、この作業が面倒に感じたため、VBAで自動化できないかを検討しました。
そこで今回は、Excel上のボタンをクリックするだけで、現在のシートを複製できるマクロを作成しました。
実現したい仕様
- Excelシート上に「複製」ボタンを配置
- ボタンを押すと、新しいシート名を入力するダイアログボックスが表示される
- 入力された名前で、現在のシートをブックの先頭に複製
- シート名が既存のものと重複していた場合は無視
実装コード（VBAマクロ）
以下が実際に使用しているマクロのコードです。
Sub DuplicateSheetAnd()
Dim newSheetName As String
Dim newSheet As Worksheet
' シート名の入力を求めるダイアログボックスを表示
newSheetName = Application.InputBox("新しいシート名を入力してください:", "シート名入力", Type:=2)
' 入力がキャンセルされた場合は処理を終了
If newSheetName = "False" Then Exit Sub
' 現在のシートを複製し、複製されたシートを変数に格納
ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1)
Set newSheet = ActiveSheet
' 新しいシートに名前を設定
On Error Resume Next ' 既に同じ名前のシートが存在する場合のエラーを無視
newSheet.Name = newSheetName
On Error GoTo 0 ' エラーハンドリングを元に戻す
End Sub
このマクロは、選択中のアクティブシートをそのままコピーして先頭に配置し、指定した名前に変更する仕様です。
ボタンの設置方法（図形ボタン）
このマクロを使うには、以下の手順でボタンを作成してください。
- Excelのリボンから「挿入」→「図形」を選ぶ
- 好きな図形をワークシート上に配置
- 右クリックして「マクロの登録」→「DuplicateSheetAnd」を選択
これで、図形ボタンを押すと、マクロが実行されます。
補足：今後の応用について
今回のようにシートを簡単に複製できる仕組みがあると、業務用のテンプレート作成や日次シートの量産に非常に役立ちます。
私はこのあと、複製するだけでなく、シート内の内容を初期状態に戻す処理なども組み込んで応用しています。
まとめ
- マウス操作を減らし、シート複製をワンクリックで実行可能
- 新しいシート名は毎回入力でき、自由度も高い
- マクロ初心者でも比較的簡単に導入できる内容
業務効率化やテンプレート運用の自動化にも応用できますので、ぜひ一度お試しください。
ここまでお読みいただき、ありがとうございました。少しでも参考になれば幸いです。
スクールの紹介
最後に宣伝をさせてください。
技術で未来を切り拓く―あなたの夢を現実にするプログラミングスクール
Webデザインやプログラミングで成功を目指している方々にとって、このオンラインスクールは夢を叶えるための最適な場所です。皆さんのキャリアを次の段階へと引き上げるためにデザインされたこのスクールは、一人ひとりの成功を心から願い、それを実現するための全てを提供しています。ここでは、このスクールの魅力について詳しくご紹介します。
◆圧倒的な費用対効果
このオンラインプログラミングスクールは、Web系教育において最高の費用対効果を提供しています。多くの高額スクールが存在する中で、ここではリーズナブルな価格で、質の高い教材、無限のサポート、そして実際に市場で求められるスキルの習得機会を提供しています。
◆現役フリーランスの講師陣
講師たちは全員、現役のフリーランスプロフェッショナルです。市場で活躍している講師から直接、最新のトレンドや実践的なスキルを学べるのは、このスクールの大きな特徴です。
◆柔軟な学習コース
固定のコースがなく、学習者の興味やニーズに応じて自由に学習できます。進路変更も自由で、最低契約期間は1ヶ月という柔軟性を持っています。自分のペースで、自分に合った学習が可能です。
◆無制限の添削とサポート
理解できるまで、そして満足するまで、無制限に添削と質問への回答を提供しています。進路相談や技術面以外の相談にも対応しており、全面的にサポートします。
◆社長から学べる貴重な機会
デザイナー、プログラマー、ディレクター、マーケターとして豊富な経験を持つ社長から直接学べるのも、このスクールの特別な点です。他のスクールでは得られない、貴重な機会です。
◆実績作りへの徹底的なサポート
就職、転職、フリーランスとして成功するためには、高品質な実績が必要です。生徒の作品レベルを最大限に高め、市場で求められる実績を作り上げることに力を入れています。案件を取得できない生徒には、直接案件を提供することもあります。
◆メッセージからの約束
高額な授業料を支払わせて結果を出せないスクールとは違い、物理的なサポートは提供できないかもしれませんが、継続的な努力を通じて最高の結果を出せるようにサポートします。一緒に不正なスクールを撲滅し、あなたの夢を実現しましょう。
このプログラミングスクールは、Webデザインやプログラミングでの成功を目指す方々に必要な全てを備えています。今こそ、このコミュニティに参加し、あなたのキャリアを加速させる時です。
詳しくはこちら↓
