多个Excel Workbook的合并汇总的处理方法

yuzha · 发表于 2013-5-28 10:16

我有好几个文件，表头是一致的，但是底下的内容不一致，我希望能够把这些内容放到一个表当中去，这样能够便于我做统计处理。

本来我记得数据透视表当中有一个合并汇总的方法，可以把跨表的多个工作薄内容汇总在一起。

但是因为这个表头有合并的单元格，所以我的这个方法失败了。

所以我想问一下，有没有什么方法是可以把多个工作薄中的内容汇总到一个Excel表当中去的，而且不受合并单元格的影响。
附件当中是我的Sample表格，表头一致，不过有合并单元格，内容不同。如何能把汇总1.xls & 汇总2.xls & 汇总3.xls的内容汇总到一张表上？

谢谢各位大大了

汇总文件.rar (18.59 KB, 下载次数: 141)

wayy · 发表于 2013-5-28 10:39

汇总工具.rar (16.61 KB, 下载次数: 144)

1032446692 · 发表于 2013-5-28 11:02

Sub 汇总()
Dim a, fName, wb As Workbook, arr
fName = Dir(ThisWorkbook.Path & "\*汇总*.xls", vbNormal)
a = Sheets(1).Cells(1, 255).End(xlToLeft).Column
Do
   Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & fName)
   b = wb.Sheets(1).Cells(60000, 1).End(xlUp).Row - 2
      arr = wb.Sheets(1).Cells(3, 1).Resize(b, a)
      c = ThisWorkbook.Sheets(1).Cells(60000, 1).End(xlUp).Row + 1
      If c = 2 Then c = c + 1
      ThisWorkbook.Sheets(1).Cells(c, 1).Resize(b, a) = arr
      fName = Dir
   Erase arr
Loop Until fName = ""
End Sub

1032446692 · 发表于 2013-5-28 11:09

0Mouse · 发表于 2013-11-10 09:46

这个工具应该是你的不二之选！

操作演示：（单击图片可以放大观看）

小千办公

工具文件：

多簿单表数据合并专家1.0.rar (67.37 KB, 下载次数: 269)

apap123 · 发表于 2016-11-23 09:07

0Mouse 发表于 2013-11-10 09:46
这个工具应该是你的不二之选！
操作演示：（单击图片可以放大观看）

谢谢楼主！下次能不能加入列合并的情况，当然，行合并的情况最普遍

		自动登录	找回密码
密码			注册

多个Excel Workbook的合并汇总的处理方法

相关帖子