Excel Sheets 数据合并

Sub MergeData()
     If Worksheets.Count > 1 Then
       For Each bb In Worksheets
           If bb.Name <> "all" Then
               bb.Rows("2:" & bb.UsedRange.Rows.Count).Copy
               Worksheets("all").Paste (Worksheets("all").Cells(Worksheets("all").UsedRange.Rows.Count, 1))
           End If
       Next
    End If
End Sub