如何在Excel中将工作表复制到工作簿的末尾？

本文提供了在Excel中将特定工作表复制到工作簿末尾的方法。请按照以下步骤操作：

使用“移动或复制”功能将当前工作表复制到工作簿末尾
使用VBA代码将当前工作表复制到工作簿末尾
使用Kutools for Excel将某些/多个工作表复制到工作簿末尾

使用“移动或复制”功能将当前工作表复制到工作簿末尾

您可以使用“移动或复制”功能将当前工作表复制到工作簿末尾。

1. 切换到要复制到工作簿末尾的工作表，右键单击工作表标签，然后从上下文菜单中点击“移动或复制”。见截图：

2. 在“移动或复制”对话框中，在“下列工作表之前”框中选择（移动到底部），并勾选“创建副本”框，然后点击“确定”按钮。见截图：

当前工作表被复制并放置在当前工作簿的末尾。

使用VBA代码将当前工作表复制到工作簿末尾

您还可以使用VBA代码立即将当前工作表复制到工作簿末尾。

1. 切换到要复制到工作簿末尾的工作表，然后按 Alt + F11 打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块。然后复制并将以下代码粘贴到模块窗口中。

VBA代码：将当前工作表复制到工作簿末尾

Sub Sample()
	ActiveSheet.Copy , Sheets(Sheets.Count)
	ActiveSheet.Name = "copied sheet"
End Sub

注意：在代码中，“copied sheet”是复制后新工作表的名称。请根据需要进行更改。

3. 按 F5 键运行代码。然后当前工作表将被复制到工作簿的末尾。

使用 Kutools for Excel 将某些/多个工作表复制到工作簿末尾

Kutools for Excel 的批量复制工作表工具可以帮助您在Excel中一次性复制某些工作表一次或多次。

1. 点击 Kutools Plus > 工作表 > 复制工作表。

2. 在“批量复制工作表”对话框中，您需要：

3. 然后会弹出一个对话框，告诉您成功复制了多少个工作表，请点击“确定”按钮关闭它。

现在，所选工作表已复制到工作簿的末尾。