【Excel合并多个sheet到一个sheet页】

使用宏代码

Sub merge()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set st = Worksheets.Add(before:=Sheets(1))
st.Name = "total"
i = 1
For Each shet In Sheets
    If shet.Name <> "total" Then
        If i = 1 Then
            shet.Range("A1").CurrentRegion.Copy Destination:=st.Range("A1")
            i = st.Range("A" & Rows.Count).End(xlUp).Row + 1
        Else
            shet.Range("A2").CurrentRegion.Offset(1, 0).Resize(, Columns.Count - 1).Copy Destination:=st.Range("A" & i)
            i = st.Range("A" & Rows.Count).End(xlUp).Row + 1
        End If
    End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "finish"
End Sub

• i 变量，用于指示 st 表格中的当前行号。
• 在复制第一个工作表时保留了表头。这里我们假设所有工作表都有 相同的表头，并使用第一个工作表的表头作为合并表格的表头。
• 当复制第二个工作表时，我们使用了 Offset() 和 Resize() 方法来仅复制除了表头以外的数据，然后将它们粘贴到 st 表格中。
• 最后，更新了 i 变量，以便在复制下一个工作表时告诉代码从 st 表格的哪个位置开始插入数据。