如何提高数据比对效率

XUZHANCHENG · 发表于 2015-12-27 10:10

问题：
我对两列数据进行对比分析，

一列数据为”“项目”工作表中b列数据
一列为“凭证”工作表中c列数据

如果项目工作表中的b列数据在凭证工作表中存在，那么记录下“”凭证数据表的a和b列的数值，查询完毕以后将这些数值，写入
项目工作表b列对应值的批注中，

上面叙述过程的程序我已经写出来，但是效率不高，我想用数组或者字典的方式实现查找
请帮忙，多谢

XUZHANCHENG · 发表于 2015-12-27 11:11

没有高手帮助下吗？我现在是不知道怎在内部循环一下，

zax010 · 发表于 2015-12-27 11:15

Sub zz()
Dim d, ar
Set d = CreateObject("Scripting.Dictionary")
ar = Sheet1.Range("A1").CurrentRegion
For i = 2 To UBound(ar)
      If Not d.exists(ar(i, 3)) Then
         d(ar(i, 3)) = ar(i, 1) & "月" & ar(i, 2)
      Else
         d(ar(i, 3)) = d(ar(i, 3)) & ";" & ar(i, 1) & "月" & ar(i, 2)
      End If
Next
Range("B2:B15").ClearComments
For i = 2 To [a65536].End(3).Row
      Cells(i, 2).AddComment.Text Text:=d(Cells(i, 2).Value)
Next
End Sub

zax010 · 发表于 2015-12-27 11:16

>>>>>>>>>>>>>>>>>>>>>>>>

工作簿12.rar (22.98 KB, 下载次数: 21)

XUZHANCHENG · 发表于 2015-12-27 11:24

zax010 发表于 2015-12-27 11:15
Sub zz()
Dim d, ar
Set d = CreateObject("Scripting.Dictionary")

多谢多谢，字典我还得多理解

jwkevin · 发表于 2016-7-25 13:09

xuexi, xiexie!

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

[求助] 如何提高数据比对效率

最新热点 /1