求助关于合并同类项求和

gweatsilent

请问如何对现有VBA模块修改，实现同一时间（A列）的同一项目（B列）合并求和？ 合并同类项求和.rar (27.73 KB, 下载次数: 15)

2017-3-2 15:15 上传

点击文件名下载附件

砂海

把时间 与 项目 连接 为 一项 , (中间加上 特殊字符 , 以便后续处理)
再处理 数据
再分开

sly401

学习

grf1973

1. Sub tt()
   
2.    Set d = CreateObject("scripting.dictionary")
   
3.    arr = [a1].CurrentRegion
   
4.    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
5.    For i = 2 To UBound(arr)
   
6.         x = arr(i, 1) & arr(i, 2)
   
7.         If Not d.exists(x) Then
   
8.             k = k + 1
   
9.             d(x) = k
   
10.             brr(k, 1) = arr(i, 1)
    
11.             brr(k, 2) = arr(i, 2)
    
12.         End If
    
13.         brr(d(x), 3) = brr(d(x), 3) + arr(i, 3)
    
14.     Next
    
15.     [h2].Resize(k, UBound(arr, 2)) = brr
    
16. End Sub

复制代码

ilovelittle

合并同类项求和.rar (27.9 KB, 下载次数: 29)

2017-3-3 09:40 上传

点击文件名下载附件