合并各工作表内容

Sub 合并各sheet表内容()

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

End Sub