left join 多条件_将数组数据拆分后再合并,作为字典的键,实现多条件数据汇总...

大家好,我们今天继续讲解VBA数组与字典解决方案,今日的内容是第43讲,将数组数据拆分后合并,作为字典的键,实现多条件的数据汇总。在进入字典的讲解后,我给大家讲各种实际情况中利用字典的解决方案,让大家逐渐了解到字典的用处,并学会利用字典来解决实际问题。

今日我们要解决的实际问题是,如何把多个数据放在键中,然后在分解开,在之前的讲解中,我讲过两个条件放到键中,今日来讲解多个条件的情况,我们看下面的数据:

2c2da9064387f83494cd82431d8938c1.png

我们要把上述数据中A.B.C三列的数据作为合并汇总的基准,这个代码如何写呢?下面看我给出代码:

Sub mynzsz_43() '第43讲 将数组的拆分后合并作为字典的键,实现多条件的数据汇总

Set mydic = CreateObject("scripting.dictionary")

'讲数据页的数据放入数组

myarr = Sheets("数据").UsedRange

'将数组的前三列打碎后放入键中

For i = 2 To UBound(myarr)

If Not mydic.exists(Join(Array(myarr(i, 1), myarr(i, 2), myarr(i, 3)), "|")) Then

mydic(Join(Array(myarr(i, 1), myarr(i, 2), myarr(i, 3)), "|")) = myarr(i, 4)

Else

mydic(Join(Array(myarr(i, 1), myarr(i, 2), myarr(i, 3)), "|")) = _

mydic(Join(Array(myarr(i, 1), myarr(i, 2), myarr(i, 3)), "|")) + myarr(i, 4)

End If

Next

Sheets("43").Select

[a:e].Clear

Range("A1:D1") = Array("型号

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值