求修改按业务员销售汇总表

qj531353468

共有12个月，表1 只有1个月的数据，现在又增加了业务员这一栏，一年的数据大约有2个亿，表1 的数据可能达到5000行，汇总表的行数有400行左右。

yjh_27

qj531353468 发表于 2014-1-25 11:36
共有12个月，表1 只有1个月的数据，现在又增加了业务员这一栏，一年的数据大约有2个亿，表1 的数据可能达到 ...

修改了几个数据至2、3月

qj531353468

yjh_27 发表于 2014-1-25 13:13
修改了几个数据至2、3月

太好啦，如果能加一个合计和自动网格线就更完美，但我已经很满足啦。而且牺牲了中午休息的时间给我做。谢谢！！

qj531353468

另外，点击按钮后，应自动清除以前的所有数据后，再提取新数据。

yjh_27

qj531353468 发表于 2014-1-25 15:01
太好啦，如果能加一个合计和自动网格线就更完美，但我已经很满足啦。而且牺牲了中午休息的时间给我做。谢 ...

修改 aa

1. Sub aa()
   
2. 
   
3. Dim crr()
   
4. R = Sheet1.Range("a" & Rows.Count).End(xlUp).Row
   
5. arr = Sheet1.Range("a3:d" & R)
   
6.    
   
7.     brr = YjhSort(arr, "a,a,1,1", "2,3,1,4c;3")
   
8.     ReDim crr(1 To UBound(brr, 1) * 3, 1 To 15)
   
9.     ii = 0
   
10.     fl0 = Split("||", "|")
    
11.     For i = 1 To UBound(brr, 1)
    
12.         fl = Split(brr(i, 3), "|")
    
13.         If fl0(0) & fl0(1) = fl(0) & fl(1) Then
    
14.             crr(ii, 2 + brr(i, 1)) = brr(i, 2)
    
15.             crr(ii, 15) = crr(ii, 15) + brr(i, 2)
    
16.         Else
    
17.             ii = ii + 1
    
18.             fl0 = fl
    
19.             crr(ii, 1) = fl0(0)
    
20.             crr(ii, 2) = fl0(1)
    
21.             crr(ii, 15) = brr(i, 2)
    
22.             crr(ii, 2 + brr(i, 1)) = brr(i, 2)
    
23.         End If
    
24.     Next
    
25.    
    
26. 
    
27. Range("b4").Resize(UBound(crr, 1), UBound(crr, 2)) = crr
    
28. End Sub
    

复制代码

qj531353468

好了，谢谢！