excel怎么样汇总工作表

Sub mycopy() For Each sht In Sheets If sht.Name Sheets(1).Name Then sht.UsedRange.Copy Sheets(1).Range("a65536").End(xlUp).Offset(1, 0) NextEnd Sub