[已解决]多个个工作表中相同的字符的数据在另一个工作表中汇总起来，求各位老师帮忙，在线座等

梦静5

求各位老师，高手帮帮忙，把多个工作表中相同的字符在另一个工作表显示汇总起来。

最佳答案

月排行榜 / 总排行榜

fjmxwrs

2016-10-7 19:19

请启用宏，点工件合计表中的统计按钮即得(工件种类可增减)

跳转到最佳答案楼层

苏子龙

1. Sub tt()
   
2.     Dim sh As Worksheet
   
3.     Dim arr
   
4.     Sheets("工件合计").Range("b2:c6").Clear
   
5.     arr = Sheets("工件合计").Range("a1").CurrentRegion
   
6.     For Each sh In ThisWorkbook.Worksheets
   
7.         If sh.Name <> "工件合计" Then
   
8.             For i = 2 To 6
   
9.                 arr(i, 2) = arr(i, 2) + Application.SumIf(sh.Range("b2:f2"), arr(i, 1), sh.Range("b34:f34"))
   
10.                 arr(i, 3) = arr(i, 3) + Application.SumIf(sh.Range("b2:f2"), arr(i, 1), sh.Range("b36:f36"))
    
11.             Next i
    
12.         End If
    
13.     Next
    
14.     Sheets("工件合计").Range("a1").Resize(6, 3) = arr
    
15. End Sub

复制代码

fjmxwrs

请启用宏，点工件合计表中的统计按钮即得(工件种类可增减)

梦静5

fjmxwrs 发表于 2016-10-7 19:19
请启用宏，点工件合计表中的统计按钮即得(工件种类可增减)

你好，非常谢谢。你说明清楚操作嘛，我宏我从没用过，不懂操作

fjmxwrs

梦静5 发表于 2016-10-7 22:53
你好，非常谢谢。你说明清楚操作嘛，我宏我从没用过，不懂操作

你点统计按钮，如果可以得到结果就行了，如果提示你宏安全性就启用宏，把宏安全性设置低点，就可以了。