共筑中国梦f调:将同一工作簿中的所有工作表合并到一个新建的工作表中

来源：百度文库编辑：偶看新闻时间：2024/04/27 04:09:18

将同一工作簿中的所有工作表合并到一个新建的工作表中2010-10-02 12:09

在工作中有时会遇到数据合并的问题，需要将当前工作簿中的全部工作表合并在一起。通常的做法是先新建一个空白的工作表，然后依次将有数据的工作表中的内容复制后，按顺序粘贴到这个空白的工作表中。如果工作表的数量较多，手工操作就会非常慢。
我们可以通过建立一段宏代码，将上面操作自动完成。
按ALT+F11调出ＶＢＡ窗口，插入一个模块，然后把下面的代码复制进去。
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

这段代码很简单，其中第四行中用FOR循环得到当前工作簿中的所有工作表，第五行中使用UsedRange得到每个工作表的“已使用区域”，然后用copy方法把这些“已使用区域”中的内容复制到新建工作表中。
语句Cells([a65536].End(xlUp).Row + 2, 1)的作用是得到新建工作表的Ａ列中的最后空白单元格(即要在哪个位置粘贴)，加2的作用是使每次复制数据间隔2行空格。

回到EXCEL窗口，执行“工具-宏-宏”中的“hz”宏就会自动合并工作表了。

有什么办法可以将excel多个工作表中相同地址的单元格中的文本内容合并到一个单元格中我的问题，我想将一个Excel工作薄中的子工作表复制到另一个旧工作薄中，也就是将旧的一个工作表覆盖如何将excel中的页面设置运用到所有工作表如何很快的将一个EXCEL工作簿中的多个工作表导入ACCESS? 我想将一个Excel工作表中的子工作表复制到别一个Excel工作表中，我该怎么操作啊？谢谢解答新一个文件，在所有工作表的同一位置的单元格填充系列。如何合并工作表如何将一个文件中的全部工作表合在一起? 一个Excel工作簿里如何新建多个工作表？ EXCEL合并单元格后的数据复制到另外一个工作表中出现#REF!是怎么回事? 在Excel2000中，如果需要引用同一工作簿的其他工作表的单元格或区域中的问题怎么将excel中的对话框插入到工作表中，excel提供这项功能了么？一个工作中的问题使用电子表格中的合并工作簿时,该选项为什么会变灰? 怎么样合并工作表呢?在EXCEL 如何将数张工作表中相同列中不同行的数据合并到一起如何在同一工作簿里查找不同的工作表? 如何在excel中将整个工作簿的某列，复制到一个工作表中。怎样把Excel工作表中相同的单元格合并或留一个其他的删除请问大学新建一个图书馆需要做哪些工作谢谢如何将课本中的理论知识运用到现实工作中去？如何将EXCEL表按另一个EXCEL表中的内容进行搜索，然后将结果复制到新的工作表中？ EXCEL 工作表是否能移动到别的工作簿？一个工作簿共有多少个工作表？