【VBA】非表示シートを高速にコピーする方法
日々の業務で大量のデータを扱う際、特定のシートを複製することがよくあります。しかし、その中には非表示に設定されているシートも含まれており、通常の方法ではコピーできません。この記事では、VBAを使用して非表示のシートを高速にコピーする方法を紹介します。
サンプルコード
VBA
Option Explicit
Sub CopyHiddenSheet()
Dim ws As Worksheet, targetWs As Worksheet
Application.ScreenUpdating = False '画面更新停止
Set ws = ThisWorkbook.Sheets("HiddenSheet") 'コピー元のシート名を指定
Set targetWs = ThisWorkbook.Sheets.Add(Before:=ws) '新しいシートを作成
targetWs.Name = "NewCopy" '新しく作成したシートの名前を設定
ws.Cells.Copy Destination:=targetWs.Cells 'シート全体をコピー
Application.ScreenUpdating = True '画面更新再開
End Subよくある質問
Q 元に戻せますか？
A.
VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。
Q エラーが出たら？
A.
シート名や列番号が正しいか確認してください。