写一段VBA程序用于将EXCEL中所有的sheet表按顺序依次合并到第一个表单中

以下是一段VBA程序，可以用于将EXCEL中所有的sheet表按顺序依次合并到第一个表单中：

Sub MergeSheets()
    Dim sh As Worksheet
    Dim destSheet As Worksheet
    
    Set destSheet = ThisWorkbook.Sheets(1)
    For Each sh In ThisWorkbook.Sheets
        If sh.Name <> destSheet.Name Then
            sh.UsedRange.Copy destSheet.Cells(destSheet.Rows.Count, 1).End(xlUp).Offset(1)
        End If
    Next sh
End Sub

该程序遍历了当前工作簿中的所有sheet表，并将除第一个表单外的数据依次复制到第一个表单的下方。