想制作一个把数据汇总到总表的工具，但有好多地方不会，求救各位大神

图气小p孩1

我想制作一个把数据表中的数据匹配到总表中的工具，但试了好多次发现好多难点不会，555555，求救各位大神帮帮忙

1.在运行工具中设置一个按钮可以根据你做第几天的数据，然后从第几天开始。但是问题来了，我只知道怎么匹配7月1号和另外一个表的7月1号，但另外一个表中7月1号下面还有“抱怨，一般，满意”，3个分格，要怎么定位到7月1号再定位不同分格呢？？

2.在数据表中有几个是相同时间的数据，我要怎么把他们合在一起再放上去汇总表中？

5555，我是菜鸟，很多不会，求大神救救我~~~~~

还有，我之前用QQ号登陆的，为什么现在不能用呢？？？55555

图气小P孩

各位大神，求救救我~~~~

grf1973

直接在“表统计”里点击。

1. Sub tt()
   
2.     Dim wb As Workbook, xRng As Range
   
3.     rq = [o3]
   
4.     Set xRng = Rows(1).Find(rq)
   
5.     If Not xRng Is Nothing Then
   
6.         'Set wb = Workbooks("数据.xls")
   
7.         Set wb = Workbooks.Open(ThisWorkbook.Path & "\数据.xls")
   
8.         arr = wb.Worksheets(1).[a1].CurrentRegion
   
9.         Set d = CreateObject("scripting.dictionary")
   
10.         For i = 1 To UBound(arr)
    
11.             If IsNumeric(arr(i, 1)) Then
    
12.                 For j = 2 To UBound(arr, 2)
    
13.                     xkey = arr(i, 1) & arr(1, j)
    
14.                     d(xkey) = d(xkey) + arr(i, j)
    
15.                 Next
    
16.             End If
    
17.         Next
    
18.         
    
19.         brr = [a1].CurrentRegion
    
20.         c = xRng.Column
    
21.         For i = 3 To UBound(brr)
    
22.             For j = c - 1 To c + 1
    
23.                 xkey = brr(i, 1) & brr(2, j)
    
24.                 brr(i, j) = d(xkey)
    
25.             Next
    
26.         Next
    
27.         [a1].CurrentRegion = brr
    
28.         wb.Close False
    
29.     End If
    
30. End Sub
    

复制代码