Question

怎么将excel中几张格式(表头) 相同的30个单独的数据表合并成一个？

比如表1的第一行、第二行分别为
部门 姓名 时间
人事 张三 10
表2的第一行、第二行分别为
部门 姓名 时间
财务 李四 11
我想把表1和表2合并为
部门 姓名 时间
人事 张三 10
财务 李四 11

不需要进行计算。其实就是简单的合并，但是行数很多，用复制和粘贴工作量太大了。 怎么合并呢？据说要用到宏，具体是怎么操作的，高手请赐教！

Answer 1

这个试下

Sub UnionWorksheets()
Application.ScreenUpdating = False
Dim lj As String
Dim dirname As String
Dim nm As String

lj = ActiveWorkbook.Path
nm = ActiveWorkbook.Name
dirname = Dir(lj & "\*.xls*")

Cells.Clear

Do While dirname <> ""
If dirname <> nm Then
Workbooks.Open Filename:=lj & "\" & dirname

Workbooks(nm).Activate

'复制新打开工作簿的第一个工作表的已用区域到当前工作表
Workbooks(dirname).Sheets(1).UsedRange.Copy _
Range("A65536").End(xlUp).Offset(1, 0)

Workbooks(dirname).Close False
End If
dirname = Dir
Loop

End Sub