VBA之合并多个表格的数据

有很多的工作表,如何把它们合并到sheet1里呢?

代码如下

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

'先要删除所有数据
Sheet1.Range(“a1:f65536”).ClearContents

'复制表头
Sheet2.Range(“a1:f1”).Copy Sheet1.Range(“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("a2:f" & i).Copy Sheet1.Range("a" & j + 1)
End If

Next
End Sub