[已解决]快速将多个工作表数据复制到新的同一个工作表中

LIYU8989

求助：
想建立一个新的sheet，将1.2.3.4个sheet数据快速复制到新的sheet里面

抬头不要，从A5开始

感谢，非常感谢！

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-27 16:57

1. Sub aaa()
   
2. Dim i&, n&
   
3. Application.ScreenUpdating = False
   
4. n = Worksheets.Count
   
5. Worksheets.Add after:=Worksheets(n)
   
6. For i = 1 To n
   
7.   With Sheets(i)
   
8.     .Range("a5:i" & .[d65536].End(3).Row).Copy ActiveSheet.Range("a" & ActiveSheet.[d65536].End(3).Row + 1)
   
9.   End With
   
10. Next i
    
11. ActiveSheet.Rows(1).Delete
    
12. Application.ScreenUpdating = True
    
13. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim i&, n&
   
3. Application.ScreenUpdating = False
   
4. n = Worksheets.Count
   
5. Worksheets.Add after:=Worksheets(n)
   
6. For i = 1 To n
   
7.   With Sheets(i)
   
8.     .Range("a5:i" & .[d65536].End(3).Row).Copy ActiveSheet.Range("a" & ActiveSheet.[d65536].End(3).Row + 1)
   
9.   End With
   
10. Next i
    
11. ActiveSheet.Rows(1).Delete
    
12. Application.ScreenUpdating = True
    
13. End Sub

复制代码

lxlyhu

查看结果和图示

LIYU8989

大灰狼1976 发表于 2017-4-27 16:57

非常感谢，已帮忙解决，感谢{:11:}