在日常工作中，我们需要将几个工作表合并在一起。如果内容少，就一个一个复制粘贴。

如果内容较多，尽量用代码来完成：

1.在包含多个工作表的工作簿中，创建一个新工作表。

2.右键单击新创建的工作表标签，并选择查看代码。

3.将以下代码粘贴到打开的VBA编辑窗口中：

Sub合并当前工作簿下的所有工作表()

申请。ScreenUpdating=False

对于j=1到张。数数

如果工作表(j)。命名活动表。那就说出名字

X=范围(“A65536”)。结束(xlUp)。第一行

Sheets(j).UsedRange.Copy单元格(X，1)

如果…就会结束

然后

范围(“B1”)。挑选

申请。ScreenUpdating=True

MsgBox "当前工作簿中的所有工作表已被合并！"，vbInformation，“提示”

末端接头

运行后可以合并。如果内容太多，可能会有点卡，等等。

转载请注明出处。