如何在 Excel 中复制隐藏的工作表？

我们可以轻松地将数据复制和粘贴到 Excel 表格或整个 Excel 工作表中。但如果尝试从隐藏的表格中复制数据，这可能是一个非常漫长的过程。我们无需取消隐藏表格，就可以使用 VBA 应用程序从隐藏的表格中复制数据，因为它无法直接在 Excel 中完成。阅读本教程了解如何在 Excel 中复制隐藏的表格。

在 Excel 中复制隐藏的表格

我们将在本文插入一个 VBA 模块，然后运行代码来完成此任务。我们来了解一下使用 VBA 应用程序在 Excel 中复制隐藏表格的简单流程。

步骤 1

我们来考虑一个 Excel 工作簿，其中包含多个含有数据的表格。要隐藏任意表格，请右键单击表格名称，然后从菜单中选择隐藏。

右键单击 > 隐藏

如果我们想从表格中复制代码，我们可以借助 VBA 应用程序。首先，右键单击表格名称，然后选择查看代码以打开 VBA 应用程序。

然后，点击“插入”，选择“模块”，然后将以下程序代码粘贴到文本框中，如下图所示。

右键 > 查看代码 > 插入 > 模块 > 程序

程序

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

在程序中，表 5 是工作簿中隐藏表的名字。

步骤 2

现在，将表另存为启用宏的工作簿、点击 F5 运行代码、在文本框中输入要创建的表的名称，然后点击确定。

保存 > F5 > 表名称 > 确定

将会创建名为“复制的表”的表，其中包含隐藏表的数据。

结束语

在本教程中，我们使用了一个简单的示例来演示如何从 Excel 中的隐藏表中复制。

更新于： 07-Mar-2023

2 千次浏览

开启您的 职业生涯

通过完成本课程获得认证

开始
广告