求助:如何把多个EXCEL里的数据合并到1个EXCEL的1个SHEET里?

Question

RT
需要把几个EXCEL里面的数据存到一起
请给点建议
谢谢

Answer 1

"几个EXCEL"工作薄还是“几个EXCEL”工作表中的数据入在一个sheet中？简单的拷贝或是有特殊要求？
既然你也没问得那么细节，我也不妨笼统的说：使用公式。

Answer 2

如果没有什么特殊要求的话编一段简单的VBA，就可以搞定了

Answer 3

不好意思
提问方面我还需要提高
几个SHEET和几个XLS有什么区别呢
不都是详细到每个SHEET吗我现在的问题是:
例如:有2个SHEET(A和B)
我需要把A里面的数据拷到B里
首先打开A,选中需要拷的数据,然后打开B,这里我出了问题:我需要把这些数据放到B原有数据的后面
我的想法是搜索B的空单元格,从第一格空单元格开始放入
但是在这里我无法再激活B,对B进行搜索的那段小程序也无法执行不知道这样你们可否明白
谢谢

Answer 4

我还是没太弄懂楼主的意思！假设A、B都在一个工作薄中吧，用公式来该怎么做？
设A中第一个单元格中即有数据。在B中紧接数据区的第一个空行某单位格中输入公式
   =A!A1
工作表A的A1单元格的数据就传到B表当前单元格。选定该单元格，拖动选框右下角的小黑方点，以复制公式，从而将A表中其他单元格内容也传到B表中对应单元格。

Answer 5

如果用VBA程序，其灵活性就高得多了，复也得写出到位的代码才行，暂且不表！

Answer 6

呵呵，Sheet 和 xls 是不同的。Sheet 就是 WorkSheet对象
而你所说的 xls 其实就是 一个excel文件,也就是一个WorkBook对象WorkBook对象中包含着Sheet 对象，OK？？你所要求的程序很简单的，

Answer 7

各位，我也想知道，我是几个不同的EXCEL文件，而且有些表格并不是非常一直的。

Answer 8

楼主的需求用VBA实现是比较容易的
如果A与B是相同的结构(这里假设第一行是标题行),把B的内容添加到A的尾部, 2句话就搞定了:
worksheets("A").Rows("2:"& worksheets("A").usedrange.Rows.Count).copy
worksheets("B").paste(worksheets("B").Cells(worksheets("B").usedrange.Rows.Count,1))