execl中有Sheet1，Sheet2，Sheet3，Sheet4.数据怎么合并到Sheet1里

更新时间：2019-10-15 05:00:31 127次访问

急用

参考资料：

Sub 同一工作簿中的合并()

    n = ActiveSheet.Name

    Sheets.Add After:=Sheets(Sheets.Count) '添加工作表，放在最后（右）面

    Sheets(n).Shapes("Button 1").Copy  '复制工作表名=n的按钮

    Range("E2").Select: ActiveSheet.Paste: Range("A1").Select '粘贴按钮于添加的工作表E2单元格

    Sheets(n).Select '选择工作表，名=n的

For i = 1 To Sheets.Count - 1

    AbRcou = Sheets(Sheets.Count).Cells(Rows.Count, 1).End(xlUp).Row '添加的工作表A列数据行数

    Sheets(i).[a1].CurrentRegion.Copy _

    Sheets(Sheets.Count).Cells(1, 1).Offset(IIf(AbRcou = 1 And _

    Sheets(Sheets.Count).[a1] = "", 0, AbRcou))   '工作表的内容复制到添加的工作表中

Next i

End Sub