[已解决]简单复制代码

zxb2008

复制 工作表.zip (147.22 KB, 下载次数: 9)

2017-1-18 20:06 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-1-19 11:23

1. Sub 汇总()
   
2.     Dim sht As Worksheet, i&, arr
   
3.     For Each sht In Sheets
   
4.         If sht.Name <> "汇总" Then
   
5.             arr = sht.UsedRange.Offset(1, 0)
   
6.             Sheets("汇总").Cells(Rows.Count, 1).End(3). _
   
7.             Offset(1, 0).Resize(UBound(arr), UBound(arr, 2)) = arr
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

1. Sub 汇总()
   
2.     Dim sht As Worksheet, i&, arr
   
3.     For Each sht In Sheets
   
4.         If sht.Name <> "汇总" Then
   
5.             arr = sht.UsedRange.Offset(1, 0)
   
6.             Sheets("汇总").Cells(Rows.Count, 1).End(3). _
   
7.             Offset(1, 0).Resize(UBound(arr), UBound(arr, 2)) = arr
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

望帝春心

1. 参考附件

复制代码

zxb2008

望帝春心 发表于 2017-1-19 11:24

最佳答案 赞!