Excel 表的文件合成。

廖秀林

各位高手好，小弟碰到一个这样的问题。就是我要合并十几个EXCEL表，
具体情况是我们有个表，要求每个人都根据自己的情况填写了数据。然后填好后就一起发回给了我。 我要把这十几个表的数据统一到一个表。
有什么好方法么？期待您的回答。谢谢！

pureshadow

Sub combine()
  For i = 1 To Sheets.Count - 1
  aa = Sheets(Sheets.Count).Range("a1").CurrentRegion.Rows.Count + 1
  bb = Sheets(i).Range("a1").CurrentRegion.Rows.Count + 1
    Sheets(i).Range("a4:l" & bb).Copy Destination:=Sheets(Sheets.Count).Range("a" & aa & ":l" & (bb + aa))
  aa = aa + aa
  Next
End Sub
这是在同一工作表内的，改一下就可以跨工作簿了。

廖秀林

谢谢版主！可是我没怎么弄过宏耶。
好好去找找资料看看宏怎么弄在来问咯！