帮忙设定一下第三个表

ldsales

帮忙设定一下第三个表

TomingTang

你附件中的表好熟悉啊，貌似我弄过这个表，我给你弄过? 现在你需要设定第三表是“数据汇总表”，这表需要汇总什么？里面面不是已经有代码进行汇总了？问题描述清楚一点啊。

ldsales

TomingTang 发表于 2014-11-11 18:02
你附件中的表好熟悉啊，貌似我弄过这个表，我给你弄过? 现在你需要设定第三表是“数据汇总表”，这表需要汇 ...

我上次搞错标题搞错了，要求也写得不清楚。现在的要求才对的，麻烦帮个忙！

TomingTang

关于我在2楼的疑问，你貌似一个字都没有回答清楚，请别人帮助好歹把问题说的清楚点。以后看到这种描述不清楚的问题，都懒得提醒”你问题描述不清晰“了。

1. Sub 汇总()
   
2.     Dim Arr, Brr, d1, d2, d3, drow%, i%, j%
   
3.     Set d1 = CreateObject("scripting.dictionary")
   
4.     Set d2 = CreateObject("scripting.dictionary")
   
5.     Set d3 = CreateObject("scripting.dictionary")
   
6.     With Worksheets("基本资料")
   
7.         drow = .[a65536].End(3).Row
   
8.         Arr = .Range("a2:i" & drow)
   
9.         For i = 1 To UBound(Arr)
   
10.             Arr(i, 8) = Arr(i, 4) - Arr(i, 6)
    
11.             Arr(i, 9) = CStr(Year(Arr(i, 1))) & CStr(Month(Arr(i, 1)))
    
12.             d1(Arr(i, 9)) = d1(Arr(i, 9)) + Arr(i, 4)
    
13.             d2(Arr(i, 9)) = d2(Arr(i, 9)) + Arr(i, 6)
    
14.             d3(Arr(i, 9)) = d3(Arr(i, 9)) + Arr(i, 8)
    
15.         Next
    
16.         .[a20].Resize(UBound(Arr), UBound(Arr, 2)) = Arr
    
17.     End With
    
18.     With Worksheets("数据汇总表")
    
19.         .Range("a3:h65536").ClearContents
    
20.         .[a3].Resize(d1.Count, 1) = Application.Transpose(d1.keys)
    
21.         [c3].Resize(d1.Count, 1) = Application.Transpose(d1.items)
    
22.         [e3].Resize(d2.Count, 1) = Application.Transpose(d2.items)
    
23.         [h3].Resize(d3.Count, 1) = Application.Transpose(d3.items)
    
24.     End With
    
25.     MsgBox "汇总完毕"
    
26. End Sub
    

复制代码

ldsales

TomingTang 发表于 2014-11-17 16:22
关于我在2楼的疑问，你貌似一个字都没有回答清楚，请别人帮助好歹把问题说的清楚点。以后看到这种描述不清楚 ...

不好意思，麻烦了！

ldsales

为什么运行"资料汇总表“里的宏时”基本资料“多了许多数据？？？？