excel多表合一解决办法(2种办法).docVIP

excel多表合一解决办法(2种办法) 在要合并的工作薄文件中的第一张表前先新建一张表,名称自定,可为汇总表, 点工具菜单中的宏之下的VB编辑器，然后点中间的运行宏按钮， 输入一个宏名称，点右边的创建按钮， 然后将在代码框中输入以下语句，关闭代码框，运行宏即可。 Sub 汇总() Sheets(汇总表).Select 假设存放汇总结果的工作表名称叫汇总表，如果不是请做相应修改 For Each s In ThisWorkbook.Worksheets With s If .Name 汇总表 Then 表名修改同上 .UsedRange.Offset(1, 0).Copy [A65536].End(xlUp).Offset(1, 0) End If End With Next End Sub 在未新建表情况下,在要合并的工作薄文件中的第一张表中，点工具菜单中的宏之下的VB编辑器， 然后点中间的运行宏按钮，输入一个宏名称，点右边的创建按钮， 然后将在代码框中输入以下语句，关闭代码框，运行宏即可。 在要合并的工作薄文件中的第一张表中，点工具菜单下的宏下的VB编辑器， 然后点中间的运行宏按钮，输入一个宏名称，点右边的创建按钮，然后将第2句到到处第2句复制到代码框中，关闭代码框，运行宏即可。 Sub 汇总数据() Sheets.Add With ActiveSheet .Name = 汇总表 Format(Now, hhmmss) For Each s In ThisWorkbook.Sheets s.UsedRange.Copy .Cells(.UsedRange.Rows.Count + 1, 1) Next End With End Sub 以上为成功代码。 Sub 合并() Dim i% Sheets(1).UsedRange.Copy [a1] For i = 1 To Sheets.Count If Sheets(i).Name Me.Name Then Sheets(i).UsedRange.Offset(2, 0).Copy [a65536].End(xlUp).Offset(1, 0) Next i End Sub 轻轻一点，工作簿自动合并。 轻轻一点，工作簿记录自动合并。代码在示例表中（在汇总表中点右键，查看代码） 1，本工作簿中各表的记录自动合并到总表 2，多工作簿记录合并到总表 关于在本工作簿汇总各表的记录到总表代码，根据有的用户要求，想有选择地从各表中某行或某列中复制记录到总表中，你可以将下面的代码复盖原来的代码。红色的字符是选择范围，蓝色字符（如：1）表示是插入到总表的第二行（第一行是列标题），这两处可自行修改。(2009.3.30) Sub 工作簿汇总() For Each st In Worksheets If st.Name ActiveSheet.Name Then st.UsedRange.Range(a2:f31).Copy [a65536].End(xlUp).Offset(1, 0) Next End Sub 用个简单的公式就可以了=IF(Sheet1!A2=,Sheet2!A2,Sheet1!A2) ，这是A列的，公式含义就是加入表一A2单元格为空的话，那么就等于表2的，有内容的话就等于表1的，这样应该就可以实现合并了 Sub CombineWorkbooks() Dim FilesToOpen Dim x As Integer On Error GoTo ErrHandler Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename _ (FileFilter:=MicroSoft Excel文件(*.xls),*.xls, _ MultiSelect:=True, Title:=要合并的文件) If TypeName(FilesToOpen) = Boolean Then MsgBox 没有选中文件 GoTo ExitHandler End If x = 1 While x = UBound(FilesToOpen) Workbooks.Open Filename:=FilesToOpe