EXCEL 2007 - 需要帮助创建一个按钮，该按钮获取活动工作表的内容并将其粘贴到新工作表中

Question

我在整个网站上进行了搜索，以找到我的问题的答案，大多数相关的解决方案都是针对更复杂的问题。这是我需要做的。我在 Excel 2007 中创建了一个简单的表单。我正在寻找在表单底部添加一个按钮的功能，该按钮允许用户单击该按钮并将该工作表复制到同一 Excel 文档中的新工作表中。基本上只是复制活动工作表。

我尝试使用宏来做到这一点，但没有得到预期的结果，而且我们的大多数同事仍然使用 Excel 2003，所以我不确定宏是否可以在旧版本的 Excel 中工作。我不懂任何VBA，这就是为什么我来这里寻求大家的帮助。

所以回顾一下。

1. 一张 Excel 文档，其中有一个简单的表单，活动工作表底部有一个命令按钮 命令
2. 按钮“复制并粘贴”该工作表到同一 Excel 文档中的新工作表 一个
3. 可以在 Excel 2003 和 2007 中工作的解决方案，如果可能的。如果没有，就 2007 年吧。

提前非常感谢任何愿意帮助 Excel 新手的人。

Answer 1

假设您知道如何添加按钮，这里有一行简单的代码来复制活动工作表：

Sub Button1_Click()
    ActiveSheet.Copy after:=ActiveSheet
End Sub

Answer 2

也许是这样的（仅在 Excel 2003 中测试）：

Dim srcSheet, dstSheet
    Set srcSheet = ActiveSheet

    Sheets.Add
    Set dstSheet = ActiveSheet

    srcSheet.Activate
    srcSheet.Cells.Select
    Selection.Copy

    dstSheet.Activate
    dstSheet.Cells.Select
    ActiveSheet.Paste

Answer 3

您应该发现此方法适用于 Excel 2003 和 Excel 2007。在您的表单中，添加以下方法：

Sub CopySheet(WorkSheetName as String)

    Dim WrkSht As Worksheet
    Set WrkSht = Sheets(WorkSheetName)

    WrkSht.Copy After:=Sheets(WorkSheetName)

    Set WrkSht = Nothing

End Sub

从按钮单击事件中，使用以下方式调用它：

Sub Button1_Click()

    Call CopySheet("WorkSheetToCopyName") 
    'You could also replace the string name with ActiveSheet if you so wish

End Sub

这将在当前工作表和下一个工作表之间转储工作表的副本一。我已经在 Excel 2003 和 Excel 2007 中对其进行了测试，并且它在两者中都有效。遗憾的是，它没有给第二个工作表一个漂亮的名字 - 它只是与源工作表同名，并在其后面加上 (2) 。

所有格式、保护和公式也被复制 - 这是第一个的副本。

Answer 4

我知道这个问题已经很老了，但只是想指出，您（和用户）可以使用零代码执行完全相同的操作：右键单击底部的工作表名称，然后选择“移动”或“复制”.. .，然后选中创建副本框并单击确定。是的，只需点击 4 次，但它非常简单并且无需编写代码。