[已解决]怎么样汇总工作表的合计数

ttggjxl

按照sheet名称确定部门，汇总各sheet合计这一行的销售额、销售奖励及合计数

最佳答案

月排行榜 / 总排行榜

喜多多

2017-8-21 18:54

1. Sub t()
   
2. Dim i As Integer
   
3. Range("A2:E65536").ClearContents
   
4. For i = 1 To Sheets.Count
   
5.     If Sheets(i).Name <> "汇总" Then
   
6.         With Sheets(i)
   
7.         Cells(65536, 2).End(xlUp).Offset(1) = Left(Sheets(i).Name, Len(Sheets(i).Name) - 2)
   
8.         Cells(65536, 3).End(xlUp).Offset(1) = .Cells(65536, 5).End(xlUp)
   
9.         Cells(65536, 4).End(xlUp).Offset(1) = .Cells(65536, 6).End(xlUp)
   
10.         Cells(65536, 5).End(xlUp).Offset(1) = .Cells(65536, 7).End(xlUp)
    
11.         End With
    
12.     End If
    
13. 
    
14. 
    
15. Next
    
16. End Sub
    

复制代码

跳转到最佳答案楼层

ttggjxl

补充图片及文件

喜多多

1. Sub t()
   
2. Dim i As Integer
   
3. Range("A2:E65536").ClearContents
   
4. For i = 1 To Sheets.Count
   
5.     If Sheets(i).Name <> "汇总" Then
   
6.         With Sheets(i)
   
7.         Cells(65536, 2).End(xlUp).Offset(1) = Left(Sheets(i).Name, Len(Sheets(i).Name) - 2)
   
8.         Cells(65536, 3).End(xlUp).Offset(1) = .Cells(65536, 5).End(xlUp)
   
9.         Cells(65536, 4).End(xlUp).Offset(1) = .Cells(65536, 6).End(xlUp)
   
10.         Cells(65536, 5).End(xlUp).Offset(1) = .Cells(65536, 7).End(xlUp)
    
11.         End With
    
12.     End If
    
13. 
    
14. 
    
15. Next
    
16. End Sub
    

复制代码

qqyyh

6月份销售业绩2.rar (14.97 KB, 下载次数: 14)

2017-8-21 22:57 上传

点击文件名下载附件

ttggjxl

感谢，代码测试可用

ttggjxl

qqyyh 发表于 2017-8-21 22:57

谢谢回复，这个函数也很厉害哦，但是因为3楼大哥回复的比较早，而且部门也是直接生成的，所以最佳答案我还是选了他，不过你的函数思路也很值得我学习，再次感谢