将多个EXCEl表中的Sheet簿合并

使用宏：
先上代码

Sub 合并()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
    If Sheets(j).Name <> ActiveSheet.Name Then
        X = Range("A600000").End(xlUp).Row + 1
        Sheets(j).UsedRange.Copy Cells(X, 1)
        End If
        
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "数据簿合并完成！", vbInformation, "提示"

End Sub

Step1： 在同一张EXCEL表中创建一个新的sheet簿，而后点击第一个单元块。

Step2： 按【Alt】+【F11】打开宏，创建代码。【注意，"A600000"为合并簿的最大行数，若是数据溢出可自行改大】

Step3： 创建完代码后，点击运行即可完成

如有疑问，欢迎评论留言

多多点赞，会变好看；多多留言，会变有钱~