[已解决]数据的集计类问题

王谦

如附件所示，根据原始数据集计出一个部品纳入日程表。
查出每个车号在对应的零件到货日有几个O，然后填到对应的位置~
如果零件到货日为空则放入调整中栏里

谢谢~~

最佳答案

月排行榜 / 总排行榜

grf1973

2014-3-21 14:40

请看附件。。。。。结果做在sheet3中。

跳转到最佳答案楼层

王谦

居然忘记放附件了~~

grf1973

把你那个“调整中”中间的回车都去掉。。。。。。

1. Sub tt()
   
2.     With Sheet1
   
3.         r = .[a65536].End(3).Row
   
4.         c = .[iv1].End(xlToLeft).Column
   
5.         arr = .Range(.[a2], .Cells(r, c))
   
6.     End With
   
7.     Set d = CreateObject("scripting.dictionary")
   
8.     For i = 2 To UBound(arr)
   
9.         rq = arr(i, 1)
   
10.         If Len(rq) = 0 Then rq = "调整中"
    
11.         For j = 2 To UBound(arr, 2)
    
12.             ch = arr(1, j)
    
13.             If arr(i, j) = "O" Then d(rq & ch) = d(rq & ch) + 1
    
14.         Next
    
15.     Next
    
16.    
    
17.     With Sheet3
    
18.         r = .[a65536].End(3).Row
    
19.         c = .[iv6].End(xlToLeft).Column
    
20.         arr = .Range(.[a6], .Cells(r, c))
    
21.         For i = 2 To UBound(arr)
    
22.             ch = arr(i, 1)
    
23.             For j = 3 To UBound(arr, 2)
    
24.                 rq = arr(1, j)
    
25.                 arr(i, j) = d(rq & ch)
    
26.             Next
    
27.         Next
    
28.         .[a6].Resize(UBound(arr), UBound(arr, 2)) = arr
    
29.     End With
    
30. End Sub
    

复制代码

grf1973

请看附件。。。。。结果做在sheet3中。

王谦

grf1973 发表于 2014-3-21 14:40
请看附件。。。。。结果做在sheet3中。

非常感谢~~
就是还有点似懂非懂~
我会努力研究研究~~

谢谢你啦~~
同样是幼儿园的，差距咋就那么大呢~~
^_^