如何在 Excel 中複製隱藏的工作表？

在 Excel 中，我們可以快速輕鬆地將工作表移動或複製到當前或其他工作簿中，但您是否嘗試過將隱藏的工作表複製到活動工作簿呢？本文將介紹一段 VBA 程式碼，幫助您將特定的隱藏工作表複製到活動的 Excel 文件中。

使用 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. 然後點擊 確定 按鈕，隱藏的工作表就會立即以新名稱複製到活動工作簿中。