Office中国论坛/Access中国论坛

标题: Excel 表的文件合成。 [打印本页]

作者: 廖秀林 时间: 2008-11-4 09:11
标题: Excel 表的文件合成。
各位高手好，小弟碰到一个这样的问题。就是我要合并十几个EXCEL表，
具体情况是我们有个表，要求每个人都根据自己的情况填写了数据。然后填好后就一起发回给了我。我要把这十几个表的数据统一到一个表。
有什么好方法么？期待您的回答。谢谢！

作者: pureshadow 时间: 2008-11-4 09:25
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
这是在同一工作表内的，改一下就可以跨工作簿了。

作者: 廖秀林 时间: 2008-11-4 13:58
谢谢版主！可是我没怎么弄过宏耶。
好好去找找资料看看宏怎么弄在来问咯！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)