统计 包含特定字符的字典关键字 对应的项 的和

ahut2002

是否有方法统计 包含特定字符的字典关键字所对应的项 的和。如果没有，该怎么解决附件中的问题。
请求在VBE的 [ ] 中。

terry1943

你这个题，能模拟两三行数据，把逻辑关系说清楚么，不要在你的代码里面进行注释，我给你写写。

liulang0808

看着楼主的代码需求，感觉有些乱，不是特别明白
建议供参考：
在对字典赋值的时候，就考虑根据公司对应的日期进行区分赋值了。

renkangjizhen

Sub 统计()
Dim arr, d1, d2, k, t1, i&, x%, y%, m%, t2
arr = Sheets("销售台账").Range([j2], [x1000].End(3))
Set d1 = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
If Not d1.exists(arr(i, 15)) Then
  d1(arr(i, 15)) = arr(i, 1)
  d2(arr(i, 15)) = arr(i, 9)
  Else
  d1(arr(i, 15)) = d1(arr(i, 15)) + arr(i, 1)
  d2(arr(i, 12)) = d2(arr(i, 15)) + arr(i, 9)
  End If
Next
k = d1.keys: t1 = d1.items: t2 = d2.items
For m = 0 To d1.Count - 1
x = Int(m / 7) + 2: y = m Mod 7 + 1
With Sheets("统计表")
.Cells(x, y) = k(m): .Cells(x, y + 1) = d1(m): .Cells(x, y + 2) = d2(m)
End With
Next
End Sub

renkangjizhen

建议楼主：将需要统计的列集中，减少计算机内存占用，以免运行错误