怎么把多个excel表格中的东西复制或者合并到一个excel表格中去

Question

怎么把700多个excel中的东西快速复制或粘贴到一个表格中？ 要是一个一个复制会死人的 求高手

Answer 1

可以在Excel表格中用下面的VBA程序实现：

Sub Test() '打开当前目录下文件，将Sheet1信息复制到汇总表上

Dim f$

Dim n& 

Mypath = ThisWorkbook.Path & "\"

f = Dir(Mypath & "*.xls*")

Do While f > " "

n = n + 1

Workbooks.Open Mypath & f 

Set c = ActiveWorkbook

arr=sheet1.UsedRange

c.Close

Cells(n, 1).resze(Ubound(arr,1),Ubound(arr,2)) =arr

n=n+Ubound(arr,1)

f = Dir

Loop

End Sub

操作方法：

1、打开Excel编辑器，插入模块

2、将上面的程序复制进模块

3、在Excel页面中，点 开发工具-宏，执行里面名为Test的宏，即可自动完成汇总

Answer 2

右键工作表标签-就有移动或者复制工作表命令

满意请采纳本回答被提问者采纳