一个工作薄中存在若干工作表,整合到一个工作表中的代码

合集下载

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

一个工作薄中存在若干工作表，整合到一个工作表中的VBA代码

如果一个工作薄中存在若干工作表，且工作表的格式一样的话，如果想快速将这些工作表整合到一个工作表中，则可以使用VBA代码。

1. 打开需要和并工作表的excel。
2. 按alt+F11.
3. 插入一个模块。
4. 将下面的东东复制进去。
5. 点击运行。
6. 搞定

==========复制下面的代码==================

Sub hz()

Set NewSheet = Sheets.Add(Type:=xlWorksheet) '生成一个新表

Sheets(NewSheet.Index).Move before:=Sheets(1) '将此表移动到最前面

For i = 2 To Worksheets.Count

Sheets(i).UsedRange.Copy NewSheet.Cells([a65536].End(xlUp).Row + 2, 1) '将其他表中的已用区域复制到新表中

Next i

MsgBox "合并完成"

End Sub

==========复制上面的代码==================