Excelで非表示のシートをコピーするにはどうすればよいですか？ 

Excelでは、シートを現在のブックや他のブックに簡単に移動したりコピーしたりできますが、非表示のシートをアクティブなワークブックにコピーしようとしたことはありますか？この記事では、特定の非表示シートをアクティブなExcelファイルにコピーするためのVBAコードをご紹介します。

VBAコードを使用して非表示のワークシートをアクティブなワークブックにコピーする

VBAコードを使用して非表示のワークシートをアクティブなワークブックにコピーする

あるワークブックから非表示のシートをコピーし、名前を付ける場合、次のVBAコードが役立ちます：

1. ALT + F11 キーを押しながら押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

2. 「 挿入」＞「モジュール」をクリックし、次のコードを モジュールウィンドウに貼り付けます。

VBAコード: 非表示のワークシートをアクティブなワークブックにコピーする：

Sub DupSheet()
'Updateby Extendoffice 20161109
    Dim Actsheet As String
    Application.ScreenUpdating = False
    On Error Resume Next
    ActiveWorkbook.Sheets("Sheet12").Visible = True
    ActiveWorkbook.Sheets("Sheet12").Copy _
    after:=ActiveWorkbook.Sheets("Sheet12")
    ActNm = ActiveSheet.Name
    ActiveSheet.Name = InputBox("Enter the name for the new sheet.")
    Sheets(ActiveSheet.Name).Visible = True
    ActiveWorkbook.Sheets("Sheet12").Visible = False
    Application.ScreenUpdating = True
End Sub

注: 上記のコードでは、Sheet 12 はコピーしたい非表示のシートです。必要に応じて変更してください。

3. そして、 F5キーを押してこのコードを実行すると、新しいコピー用の非表示ワークシートの名前を指定するように求めるプロンプトボックスが表示されます。スクリーンショットをご覧ください：

4. [OK] ボタンをクリックすると、非表示のシートが新しい名前でアクティブなワークブックにすぐにコピーされます。