可否利用字典实现查询功能？

cgygsyx · 发表于 2015-9-24 10:06

附件中，将每个老师所教班级写入班级对应列，如一个老师教多个班级，班级之间用顿号隔开，虽然感觉字典功能可以做到，但不知从何下手，没有思路，还望大侠相助，非常感谢！

zax010 · 发表于 2015-9-24 11:22

Sub zz()
Dim d, ar
Set d = CreateObject("Scripting.Dictionary")
ar = [j1].CurrentRegion
For i = 2 To UBound(ar)
      For j = 2 To UBound(ar, 2)
         d(ar(i, j)) = d(ar(i, j)) & "、" & ar(i, 1)
      Next
Next
For i = 2 To [a65536].End(3).Row
      If d.exists(Cells(i, 3).Value) Then Cells(i, 7) = Mid(d(Cells(i, 3).Value), 2)
Next
End Sub

zax010 · 发表于 2015-9-24 11:24

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

高三各科教师人数.rar (12.86 KB, 下载次数: 191)

cgygsyx · 发表于 2015-9-24 16:36

代码精简，功能正常，非常佩服，我要好好学习学习了，在此对老师表示感谢

abc123qqq · 发表于 2017-6-14 14:28

学习，感谢帮助。

02761752696 · 发表于 2017-11-14 19:35

学习谢谢分享

x-xx-xx · 发表于 2017-11-14 22:15

学习谢谢分享

LMY123 · 发表于 2018-7-27 10:11

d(ar(i, j)) = d(ar(i, j)) & "、" & ar(i, 1)

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

[已解决] 可否利用字典实现查询功能？

评分