如何在 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. 接着单击 确定 按钮，隐藏的工作表就会立即以新名称复制到当前工作簿中。