有很多的工作表,如何把它们合并到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