excel工作簿的合并

小小叶子

怎样把excel表里面的几个工作簿，合并到一个工作簿里面

yqzx

Sub hebin()
Dim i, j, k, l As Integer  'i是数据源表的最后一行，j是目标表(数据表)的最后一行，l是数据源表的最后一列
Dim sht As Worksheet


k = InputBox("请输入表头行数")
l = Sheet2.Cells(1, Columns.Count).End(xlToLeft).Column


'先要删除所有数据
Sheet1.Range(Cells(1, 1), Cells(65536, l)).ClearContents


'复制表头
'Sheet2.Range("a1:f" & k).Copy Sheet1.Range("a1")
Sheet2.[a1].Resize(k, l).Copy Sheet1.[a1]

'复制数据
For Each sht In Sheets
    If sht.Name <> "数据" Then
        i = sht.Range("a65536").End(xlUp).Row
        j = Sheet1.Range("a65536").End(xlUp).Row
        sht.Range("a" & k + 1).Resize(i - k + 1, l).Copy Sheet1.Range("a" & j + 1)
    End If
Next
Sheet1.Select
End Sub