一键汇总代码

Sub 汇总表()Dim i, X, j As IntegerFor i = 1 To Sheets.Count    If Sheets(i).Name <> '汇总表' Then     j = Sheets(i).Range('A65536').End(xlUp).Row        Sheets(i).Range('A2:M' & j).Copy        X = Sheets('汇总表').Range('A65536').End(xlUp).Row + 1        Sheets('汇总表').Range('A' & X).Select     ActiveSheet.Paste    End If NextEnd Sub