求助大神~如何用字典做到多个关键字匹配字段并抓取行数据？

黑与白在思考 · 发表于 2020-1-6 20:48

紧急求助大神！有一张开票信息的表，需要按物料信息&单位&单价作为参照在生成的另一个工作表中进行合并，金额类求和，其余所有字段进行匹配
用函数的话我倒是会的，用vlookup（if{}）和sumifs进行条件匹配和求和，但是因为数据量比较大，有几万行，合并后也有上千行，全部用函数之后每次光打开表更新就好长时间，所以想到用字典写，但是无奈看了半天实在搞搞不定，求助大神帮忙！
具体要求如下：
1、创建新的xls文件，命名为“开票上传.xls”
2、按“开票数据.xls”表中列S&T&U&AH去除重复后对应抓到“开票上传”中S&T&U&AH列
3、按“开票上传”中S&T&U&AH列作为匹配条件抓取“开票数据.xls”表中其余所有列字段，如重复则匹配第一行，而对列V,W,Y进行求和处理

黑与白在思考 · 发表于 2020-1-6 20:50

感谢各位大神！！

鄂龙蒙 · 发表于 2020-1-6 22:20

Sub 合并()
Dim d, ar, br(), m%, sa, i, j, s
Set d = CreateObject("Scripting.Dictionary")
sa = Array(22, 23, 25)
Sheet3.[A2:AH10000] = Empty
ar = Range("A1").CurrentRegion
For i = 2 To UBound(ar)
s = ar(i, 19) & ar(i, 20) & ar(i, 21) & ar(i, 34)
If d(s) = "" Then
m = m + 1
ReDim Preserve br(1 To 34, 1 To m)
d(s) = m
For j = 1 To 34
br(j, m) = ar(i, j)
Next
Else
For j = 0 To 2
br(sa(j), d(s)) = br(sa(j), d(s)) + ar(i, sa(j))
Next
End If
Next
Sheet3.[A2].Resize(m, 34) = Application.Transpose(br)
Set d = Nothing
End Sub

复制代码

黑与白在思考 · 发表于 2020-1-7 09:33

鄂龙蒙发表于 2020-1-6 22:20

感谢大神回复

试了下有报错，第5行，感觉是Sheet3这个没创建吧，可以创建xls的workbook吗？
还有第7行也报错，是因为6行的数组吗？

鄂龙蒙 · 发表于 2020-1-7 09:48

楼主添加Sheet3后运行看看

黑与白在思考 · 发表于 2020-1-7 10:29

鄂龙蒙发表于 2020-1-7 09:48
楼主添加Sheet3后运行看看

我知道了，代码我是放在模块里的，我应该指定下sheet，我再去试试

黑与白在思考 · 发表于 2020-1-7 10:59

鄂龙蒙发表于 2020-1-7 09:48
楼主添加Sheet3后运行看看

添加了sheet3之后可以运行的！可以帮忙加上新建xls文件，直接抓过去吗？

		自动登录	找回密码
密码			免费注册

[求助] 求助大神~如何用字典做到多个关键字匹配字段并抓取行数据？

评分

最新热点 /1