合并各工作表内容

Sub 合并各sheet表内容()

Dim ws As Worksheet, nws As Worksheet
Set nws = Sheets.Add(after:=Sheets(Sheets.Count))
For Each ws In Sheets
    If ws.Name <> nws.Name Then
        ws.UsedRange.Copy nws.Range("a" & nws.Cells(Rows.Count, 1).End(xlUp).Row).Offset(1)
    End If
Next
Rows(1).Delete

End Sub