VB 将一个 Excel 工作簿中的多个工作表合并成一个工作表

Sub 合并工作簿内的多个Sheet到同一个Sheet()

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

Dim sht As Worksheet

Application.ScreenUpdating = False '关闭屏幕刷新

'先要删除所有数据

Sheets("汇总").Range("a1:z65536").ClearContents

'复制数据

For Each sht In Sheets

If sht.Name <> "汇总" Then

i = sht.Range("d65536").End(xlUp).Row

j = Sheets("汇总").Range("d65536").End(xlUp).Row

sht.Range("a1:z" & i).Copy Sheets("汇总").Range("a" & j + 1)

End If

Next

MsgBox "执行完毕！"

Application.ScreenUpdating = True '打开屏幕刷新

End Sub

本文来源：https://www.wddqw.com/doc/287480016aeae009581b6bd97f1922791688beef.html